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THE  DAY  THE  IBM'  PC  BECAME  OBSOLETE. 
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!t  was  a  Monday  in  the 
autumn  of  '83: 

The  day  they  announced 
the  Leading  Edge'  PC-a  per- 
sonal computer  that's  just  olain 
better  than  the  IBM*  PC,  at  just 
about  haif  the  price. 

The  Leading  Edge  PC  is 
faster  (by  more  than  50%),  jnore 
powerful,  more  flexible  and 
more  dependable  (for  example, 
our  disk  drives  have  a  "mean 
time  between  failures"  of  20,CX)0 
hours,  versus  an  8,(X)Ohoui- 
MTBF  for  theirsi.  ifs  companble 
with  just  about  all  the  software 
and  peripherals  that  the  IBM  is. 

And  unlike  IBM's,  ours 
comes  complete  with  a  high- 
resolution  monitor,  controlier, 
seven  expansion  slots,  serial 
port,  parallel  port,  a  time-ot-day 
clock,  double  the  standard 
memory  (128K  vs.  64K)  plus 
hundreds  of  dollars  worth  of 
software  to  get  you  up  and 
running  immediately  including 
MS  "-D05  version  US,  GW  Basic, 
and  Leading  Edge  Word  Pre  - 
cessing'"  (the  most  powerful 
w.p.  program  ever  created  to 
run  on  an  IBM-type  personal 
computer).  In  short,  the  baf-ic 
package  comes  to  you  com- 
plete and  ready  to  work. 

With  IBM,  on  the  other 
hand,  you  get  charged  extra  for 
everything.  Even  for  the  PC  DOS 
disk  that  makes  it  run  (an  (;xtra 
$40) ...  and  $170  just  for  the  time 
of  day  (a  calendar/clock  thcif  s 
standard  with  Leading  Edgf?).  In 
short,  the  basic  package  cc  mes 
to  you  as  a  very  expensive 
paperweight 

It's  this  simple:  The  lcc  ding 
Edge  Personal  Computer  is  the 
first  and  only  serious  alternative 
to  the  IBM  PC... and  at  onh' 
$2895  for  the  Leading  Edge  PC . . . 

Get  serious. 

Now  at  500  Leading  Edge 
Dealers  across  the  country 
For  the  one  nearest  you,  ce  II 
toll  free  1-800-343-6833.  In 
Mass.,  call  collea(6l7)  828-:i150. 


FOR  YOUR  COMMODORE  WORDPROCESSING  NEEDS 

INVEST  IN  THE  BEST 
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WORDPRO  PLUS.  IN  A  ClASS  BY  ITSELF. 


When  choosing  a  Word  Processor  for  your  Commodore'"  computer,  there's 
no  reason  to  settle  for  anything  but  the  best  —  in  a  word..  .WordPro". 

With  over  30,000  happy  clients  churning  out  letters  and  documents  all  over 
the  world,  the  WordPro  Plus"  Series  is  unquestionably  the  #i  selling  soft- 
ware package  on  Commodore  computers!  So  when  you  choose  WordPro, 
you  know  you're  investing  in  a  trial-tested  prograrn  that's  a  real  winner.  And 
WordPro  is  NOW  available  for  your  Commodore  64"  computer—  at  prices 
starting  as  low  as  S89.95. 

Designed  for  the  user  who  has  no  computer  or  word  processing  experience 
whatsoever,  WordPro  Plus  brings  a  new  dimension  to  the  term  "user- 
friendly."  fvlore  than  just  easy  lo  use,  WordPro  will  turn  your  Commodore 
computer  into  a  sophisticated  time  saving  word  processing  tool  ~  loaded 
with  the  same  inventory  of  features  found  in  systems  costing  much,  much 
more. 

Our  nationwide  team  of  over  600  Professional  Software/Commodore  com- 
puter dealers  will  help  you  choose  the  WordPro  Plus  system  that  is  best  for 
your  needs.  Our  full-service  dealers  have  been  set  up  to  provide  strong 
customer  support.  In  addition  to  helping  you  choose  the  right  system,  many 
Professional  Software  dealers  also  offer  WordPro  Plus  training  and  system 
installation. 

Professional  Software  offers  a  complete  spectrum  of  WordPro  word  process- 
ing software  for  Commodore  computers  ranging  from  the  Commodore  64  to 
the  more  business  oriented  8000/9000  series  computers,  And  WordPro  4 
Plus  and  5  PI  us  also  interact  with  our  data  base  management  systems  includ- 
ing InfoPro  and  The  Administrator.  So  whatever  your  Word  Processing 
needs,  there's  a  WordPro  system  that's  right  for  you. 


WordPro'"  and  WordPro  Plus'"  are  trademarks  of  Professional  Software  Inc 
The  WordPro  Plus  Series  was  designed  and  written  by  Steve  Punter  of  Pro  Micro  Software 
Commodore"  and  the  Commodore  64'"  are  trademarks  o'  Commodore  Electronics.  Inc 
Dealer  inquiries  invited. 


Invest  in  the  best. . . 

WordPro  Plus.  In  a  class  by  itself. 

Gall  us  today  for  the  name  of  the  WordPro  Plus  dealer  nearest  you. 

Professional  Software  Inc. 

51  Fremont  street  (617)444-5224 

Needham,  MA  02194  Telex:  951579 

Ltd. 


I  We  just  made 
owning  an  Atari  computer 
a  lot  more  logical 
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Introducing  the  Rana  1000  disk  drive,  ttls  a  whole  new  game  for  Atari  computeis. 


This  two  digit  LED  readout 
displays  a  code  that  tells  you 
everything  you  need  to  know. 


This  switch  tells  you  your 
write  protect  feature  is 
keeping  your  information  safe. 


The  remaining  switches 
provide  readouts  on  density 
storage,  error  status,  and 
drive  number. 


This  switch,  when  you  touch  it, 
tells  you  what  track  you're  on. 


When  Rana  Systems  introduced  the  Elite 
Series  of  Apple®  compatible  disl<  drives,  we  didn't 
know  what  a  tremendous  impact  they  would  make. 
It  turned  out  to  be  a  line  so  outstanding  in  perfor- 
mance, styling,  capacity,  and  price,  that  it  instan- 
taneously made  us  a  major  force  in  the  market. 
Well,  needless  to  say,  the  response  was  so  great 
that  we  were  forced  to  create  the  same  highly  ad- 
vanced disk  drive  for  Atari®  A  disk  drive  that  when 
coupled  with  Atari's  computer,  could  perform 
everything  from  accounting,  financial  planning, 
and  stock  charting,  to  word  processing,  business 
management,  and  letting  you  write  your  own  pro- 
grams. Plus,  we  made  it  simple  enough  for  a  child 
to  use,  for  learning  anything  from  the  alphabet  to 
a  foreign  language. 

Wdridng  with  a  disltette 
versus  playing  with  a  cassette. 

Let's  face  it.  The  only  reason  Atari  made  a 
cassette  option  to  their  computer  was  to  make  it 
affordable.  But  now  you  don't  have  to  settle  for  less. 
Because  now  you  can  get  a  diskette  for  your  Atari 
computer  which  outperforms  their  cassette.  With 
Atari's  cassette  you  only  get  half  the  functions  of  a 
computer  compared  to  what  our  floppy  disk  can 
give  you.  Their  cassette  is  not  only  limited  in  the 
software  available,  but  it  also  takes  20  times  longer 
to  get  the  information  you  need.  And  Rana's  disk 


RanaSystems 


drive  offers  twice  the  storage  capacity  of  either 
their  cassette  or  disk  drive. 

Why  even  stylewise  our  new  low  profile  design 
not  only  looks  100  times  more  spectacular,  but  it 
occupies  3  times  less  space.  And  our  new  Rana 
1000  also  gives  you  a  piece  of  its  mind  every  time 
you  use  it,  because  our  disk  drive  gives  you  informa- 
tion as  well  as  takes  it.  And  we  think  that  says  a  lot. 

Ihediskdrh^ 
that  has  all  the  answers. 

Rana  offers  you  a  myriad  of  features  Atari 
couldn't  even  conceive  of.  Like  five  electronic  func- 
tions on  the  front  panel  that  give  you  a  LED  read- 
out when  touched.  Our  disk  drive  tells  you  what 
track  you're  on,  and  what  density  and  how  much 
information  you're  storing.  And,  we  have  a  write 
protect  feature  which  protects  your  diskette  from 
being  erased.  In  fact,  no  other  disk  drive  can 
offer  you  that. 

As  you  can  see,  it  was  easy  to  build  a  disk 
drive  superior  to  Atari's.  Because  for  every  reason 
you  buy  a  disk  drive,  Rana  has  superior  technology. 

The  Rana  1000  disk  drive.  It  brings  your  Atari 
computer  to  a  higher  level  of  sophistication  for  a 
price  one  third  lower  than  Atari's.  So  your  choice 
shouldn't  even  be  a  matter  of  logic. 

Just  common  sense. 


Always  a  step  ahead. 


2 1 300  Superior  Streel .  Chatswonh,  C A  9 ;  3 1 1  21 3-703-5484.  For  dealer  inlormalion  call  toll 
(ree  1-S00-421-Z207.  In  Calitornia  only  call:  1-800-262-1221.  Source  Number:  TCT-654 


'Apple  is  a  tagisKefBcKrademaikol  Apple  Computer,  Inc.*  Atari  is  a  fegWeiedtrademartt  of  Atari,  lnc„  a  \tonerCommunicailons  Company 


riR^OSfllC 


EXPANDING 
YOUR 
EXPERIENCE 


FOR  VIC20 


The  Rammaster^''32  Introduces 
you  to  the  world  of  more  powerful 
computing.  Now  VIC  20^  owners 
have  one  of  the  most  advarrced 
memory  devices  available.  It's  what 
you'd  expect  from  MOSAKMEMOftX. 
This  is  a  full  service  memory  device. 
Not  only  will  the  Rammasier'"give 
you  7  times  the  computing  RAM 
power  (as  much  usable  memory  as 
the  Commodore  64^)  but  also  many 
advanced  features. 

Th  e  expansion  port  allows 
you  to  use  your  cartridges 
without  unplugging  -^ 


the  memory  board,  saving  wear  and 
tear  on  your  computer  It's  much 
more  effective.  With  the  flexibility  the 
l\flaster  Control  sv/itches  give  you, 
you'll  have  no  need  for  a  mother 
board.  The  Write  Protect  switch 
protects  your  programs'  subroutines 
and  data  from  accidental 
interference  from  basic  language 
and  the  automatic  erase  buHt  into 
some  cartridges.'  There's  a  pause 
switch  built  In  to  stop  in  the  middle  of 
a  program,  plus  an  external  port  is 
built  In  for  a  convenien  t 

optional  cable  pause/reset 
switch.  You  even  have  a 
switch  to  overlay  a  3K 
^        block  of  RAM  for 


GOLD  EDGE 
ONNECTORS 


.  MASTER'' 
CONTROL 
SWITCHES 


expansion  to  40K.  The  Master  Control 
gives  you  complete  control  over  the 
configuration  of  your  VIC  20* 
Memory  Map  so  It  will  never  become 
obsolete. 

The  Rammaster^"  32  is  completely 
compatible  with  all  the  VIC  20" 
products  an  d  programs,  and  will  tie 
the  most  useful  peripheral  you'll  buy 
for  your  VIC  20'^  computer  With 
MOSAK  MEMOAX  expand  your 
experience  into  more  powerful 
computing.  .  ^ 

$129.95      .^~\ 

32KRAM 

Built-in  expansion  port 

Pause  switch  ' 

m  Write  protect 
~i  Master  control  for  super  flexible 

memory 

■  Cartridge  dissabler 
m  Low  cost 

■  Gold  edge  connectors  "'": 
Pic  ture  guided  instructions 
Compatible  with  VIC  20 '  software 
and  cartridges 
And  more  features 

Call  your  nearest  mosAKHXmotor  dealer, 
1-800-547-2807(653-7885  In  Oregon}. 
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'f^Wfr^^fd^i^   This  is  a  lower  cost  version  of  the 

Rammaster  32'".  it's  a  full  sen/ice  memory  device  just  like 

the  Rammaster  32'".  With  16Kless  RAM.  Expand  up  to  37K 

using  the  Mosaic  Memory  Standard  16  cartridge  or  other 

VIC2016KRAM  cartridge.  That  will  give  you  37 K  RAM 

usable  for  programming  or  cassette  /disk  bosecf  programs 

and  21K  for  cartridge  based  programs. 


^SjHi^MMJT^in  inisisaiimireamiisi'fflMooara 
^f*****^*^'*'^        designed  to  give  you  a  low  cost 
way  to  expand  with  Mosaic  Memory.  This  has  no 
expansion  port  and  limited  memory  flexibility.  Use  It  with  the 
RAMMASTER  16'"  to  expand  to  37K  The  Standard  16  offers 
Mosaic  Memory's  exceptional  reliability  and  performance 
at  a  very  low  cost. 


ELECTRONICS.  INC. 
P.O.  Box  708  •  Oregon  City,  Oregon  97045 
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EDITORS  NOTES 


Richard  Mansfield,  senior  editor  of 
COMPUTE!,  has  some  reservations 
about  the  nearly  unanimous  praise 
which  has  greeted  the  introduction 
of  Apple's  new  Macintosh  computer. 
This  month,  I'm  turning  over  this 
space  to  him  for  a  guest  editorial. 

Robert  Lock 
Editor  In  Chief 


In  the  brouhaha  surrounding 
the  introduction  of  Apple's  new 
Macintosh,  little  has  been  said 
about  the  most  shocking  thing 
.-.bout  this  "new  generation" 
'"omputer — it  doesn't  include  a 
.Linguage.  You  can't  program  it. 
There's  no  BASIC  inside.  BASIC 
and  other  programming  lan- 
guages will  be  available  later, 
but  the  essence  of  this  machine, 
its  spirit,  is  a  rejection  of  pro- 
gramming itself. 

In  this  respect,  it's  more  like 
a  streetcar  than  a  passenger  car. 
The  places  you  can  go  with  it  are 
predetermined,  tracks  laid  down 
in  the  pavement.  For  now,  there 
are  three  destinations:  word 
processing,  spreadsheet  anal- 
ysis, and  picture  painting.  Do 
you  have  something  else  in 
mind?  You'll  need  to  wait  until 
the  software  is  available  and 
you'll  need  to  buy  another  disk. 

Expressions  of  doubt  about 
this  new  machine  have  been  few 
and  faint.  The  media,  aided  by 
computer  industry  gurus,  has 
sent  up  a  nearly  unanimous  cry 
of  joy.  It's  been  called  the  first 
true  consumer  computer,  an 
appliance  computer.  It's  been 
called  the  computer  that's  easiest 
to  learn.  Perhaps  we  could  raise 
a  few  questions^  just  a  brief  pause 
for  reflection. 
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What  is  the  spirit  of  Macin- 
tosh? To  find  out,  let's  look  at 
what  happens  when  you  turn  it 
on.  A  picture  of  a  diskette  ap- 
pears on  screen  with  an  arrow 
pointing  at  it.  Unlike  other 
computers  which  might  print 
"INSERT  DISK"  on  screen  (or 
not  print  anything,  expecting 
you  to  remember  to  insert  a  disk), 
Macintosh's  message  is  easy  to 
understand.  You  don't  need  to 
know  how  to  read. 

Next,  you  insert  the  disk 
and  the  disk  drive  activates  itself. 
Until  now,  you  had  to  be  able  to 
type  in  something  like  "LOAD" 
to  pull  the  software  in  from  the 
disk.  Macintosh  does  that  for 
you.  You  don't  need  to  know 
how  to  type. 

From  here  on  it  gets  a  bit 
more  challenging — you  have  to 
be  able  to  point  the  screen  arrow 
to  a  picture  and  press  a  button. 
This  is  not  done  from  the  key- 
board, however.  Attached  to  the 
computer  is  a  "mouse,"  a  little 
rolling  device  that  moves  the 
arrow  around  the  screen  as  you 
push  the  mouse  around  a  table. 
On  top  of  the  mouse  is  the  button 
you  press  when  the  arrow  is  on 
the  picture  you  want. 

You  might  have  a  screen 
with  a  picture  of  a  hand  holding 
a  pen,  a  hand  painting,  a  file 
folder,  a  memo  pad — whatever 
symbols  represent  different  soft- 
ware on  the  disk.  If  you  select, 
say,  the  hand  holding  the  pen,  a 
new  set  of  picture  choices  ap- 
pears and  you're  well  on  your 
way.  You're  setting  things  up  to 
begin  word  processing,  to  begin 
writing  something.  At  this  point, 
though,  you'll  have  to  abandon 
the  mouse  and  start  typing  your 
own  words. 


Clearly,  there  are  always 
tradeoffs  between  convenience 
and  freedom,  between  what's 
easy  to  learn  and  what's  versatile 
in  use.  Some  people  will  opt  for 
the  former,  arguing  that  com- 
puting isn't  very  interesting, 
they're  not  going  to  be  using  a 
computer  that  often,  and 
whenever  they  do  use  it  they 
want  it  to  be  convenient  and 
simple.  That's  their  right,  of 
course.  I  feel  the  same  way  about 
telephones.  I  don't  like  using 
them.  I  wouldn't  want  one  that 
could  remember  50  numbers, 
could  record  messages,  or  could 
locate  me  anywhere  in  the  city 
and  set  off  an  alarm  hanging  on 
my  belt. 

I  want  to  dial,  communicate 
a  message,  and  get  on  with  my 
life.  For  people  who  feel  this 
way  about  computers,  a  task- 
oriented,  prepackaged  software 
machine  like  the  Macintosh  is 
ideal.  Mouse,  little  pictures, 
and  all. 

But  if  you  like  computing,  if 
you  find  it  challenging  and  crea- 
tive to  work  with  programs,  all 
the  menus  within  menus  and 
the  mousing  will  just  get  in  the 
way.  The  first  few  times,  it  will 
be  easier  to  get  into  the  word 
processing  mode  by  the  see-it- 
point-at-it  method.  However,  I 
suspect  all  this  could  become 
rather  tiresome  rather  quickly. 
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Introducing  a  computer  game 

tvUI  bring  outme  railroad  buff,the(yc( 

tlie  adYenturer,and  the  kid  in^tmr  l(id. 


TRAIh5  i5  one  computer  game  that  will  really  bring  out 
the  be5t  In  kids.  Of  all  age5. 

Because  TRAIfIS  is  a  Spinnaker  ganne,  which  means  Ifs 
a  learning  game  that's  really  fun  to  play 

TRAinS  puts  kids  in  charge  of  an  old-time  railroad.  And 
whether  their  railway  empire  gets  bigger  or  goes  out  of 
business  is  entirely  up  to  them. 

As  theyjuggle  the  challenges  of  picking  up  supplies  and 
delivering  to  various  industries,  paying  their  employees, 
keeping  the  locomotive  filled  with  coal,  and  making  enough 
money  to  venture  into  new  territories,  kids  are  actually 


learning  the  economics  of  running  a  business. 

They're  learning  to  manage  financial  resources,  and  to 
use  different  kinds  of  information  in  setting  pnorities. 

And  best  of  all,  they're  having  fun  while  they  leam, 

Look  for  TRAIM5  on  disk  at  your 
local  software 
retailer,  and  play 
it  on  your  Apple,* 
IBM,'-  Atari,'  or 
Commodore  64" 
computers. 


'JF^ 


"''^i^tac. 


We  make  learning  fun. 


©1983.  SpinngKer  5ofti*are  Corp,  flit  nghB  reserved  Apple.  IBM  ano  Aiari  are  registere<l  trademarhs  o^  Apple  Computer,  Inc .  iniernatJonal  Susmess  Machines  Corp  and  Aian.  Ire  respectivelv 
Commodore  6fl  Is  a  trademarh  of  Commodore  ClectronKs  Limited.  TRAirt5  Computer  Program  is  a  trademarK  of  5ptnnaher  Software  Corp 
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WordPro  3  Plus764 

The  #1  Selling  Word  Processor  for  the  Commodore  64^ 


WordPro  3  Plus"'/64  and  SpellRight  Plus"  provide  a  total  word 
processing  solution  for  the  Commodore  64""  which  gives  you: 

Sophisticated  Word  Processing 

Built-in  Mail  Merging  for  Form  Letters 

Math  Functions  for  Column  Totals 

Fast  and  Complete  Spell  Checking  via  SpellRight  Plus 

A  Super  Value  (two  programs)  for  Only  $99.95! 

WordPro  and  SpellRight  are  both  specifically  designed  for  the 
novice  user  with  no  computer  or  word  processing  experience 
whatsoever.  And  with  over  40,000  WordPro  versions  sold,  you 
can  be  sure  that  WordPro  is  a  very  sophisticated  word 
processor  loaded  with  powerful  features  including:  Transfer, 
Insert,  Delete,  and  Rearrange  Text,  Auto  Page  Numbering,  Math 
Functions,  Headers,  Footers,  Global  Search  and  Replace,  the 
Ability  to  Create  Multiple  Personalized  Letters  and  Documents, 
and  much  more.  WordPro  can  create  documents  of  virtually 
any  length  and  will  print  up  to  165  columns  wide.  You  get  all  of 
this  PLUS  fast  and  complete  spell  checking  using  SpellRight 
Plus! 


SpellRight  Plus  locates  and  highlights  misspelled  words  and 
then  allows  you  to  quickly  correct  the  misspellings  — 
improving  the  quality  of  your  letters  and  reports. 

And,  best  of  all,  WordPro  and  SpellRight's  powerful  arsenal 
of  features  can  be  put  to  use  almost  immediately  —  by  even 
the  novice  user.  So  whether  you're  a  student,  professional 
writer,  in  business,  education  or  a  hobbyist,  you'll  quickly 
become  a  WordPro  Pro! 

Both  WordPro  and  SpellRight  Plus  are  also  available  separately 
at  popular  computer  outlets  nationwide. 

Invest  in  the  best . .  .WordPro  Plus.  In  a  class  by  Itself. 

Professional  Software  Inc. 


51  Fremont  Street 
Needham,  MA  02194 


(617)  444-5224 
Telex:  951579 


Dealer  and  Distributor  inquiries  are  invited. 


WordPro  3  Plus~/64  and  SpellRight  Plus'"  are  trademafks  of  Professional  Software  Inc. 

The  WordPro  Plus  Series  was  designed  and  written  by  Steve  Punter  of  Pro-Micro  Software  Ltd. 

SpeilPighl  Plus  was  designed  and  written  by  Dwight  Huff  and  Joe  Spatafora  of  SpellMaster  Systems,  Inc. 

Some  printers  may  not  support  certain  WordPro  3  Plus  functions  and/or  require  an  interface.  Please  check  with  youf  dealer. 

Commodore  64"  is  a  trademark  of  Commodore  Electronics  Ltd. 


The  Shakeout  Begins: 
A  Watershed  Winter  CES 


Tom  R  Halfhill.  Features  Editor 


Commodore's 

New  Computers 

In  Doubt 


After  this  CES  report  was  written.  Commo- 
dore's top  management  underwent  a  radical 
shake-up  which  casts  doubt  on  the  new  prod- 
ucts announced  at  CES. 

In  a  surprise  move,  Commodore  founder 
Jack  Tramiel  resigned  as  president  and  chief 
executive  officer.  Two  weeks  later,  four  more 
top  executives  resigned.  Commodore  is  now 
reorganizing  its  entire  management  structure. 

As  a  result,  the  new  Commodore  264 
computer  is  being  delayed  indefinitely.  Gen- 
eral Manager  Sol  Davidson  told  The  Wnll 
Street  journal  that  Commodore  is  reexamining 
the  computer  and  will  introduce  it  "when 
there's  a  need  for  it... [the  264]  could  come 
before  the  end  of  1984,  we'll  just  have  to 
watch  carefully."  Davidson  also  was  quoted 
as  saying,  "I  think  our  zeal  [in  announcing 
the  computer]  was  greater  than  our  determi- 
nation in  [bringing  it  to]  the  marketplace." 


At  this  i/enr's  Winter  Consumer 
Electronics  Slunv,  held  in  jnniinn/ 
in  Las  Vegas,  there  was  more  of 
almost  everything — more  attendees 
{an  estimated  90,000),  more  re- 
porters, more  buildings,  more  ex- 
hibits, more  aisles,  more  video,  more 
audio,  more  computer-related  pro- 
ducts. But  for  the  first  time,  there 
xocrc  not  more  home  computers. 


No  doubt  about  it — the  personal 
computer  industrv  speeds 
through  life  in  the  fast  lane. 
Evolutionary  changes  which 
would  take  years  or  even 
decades  to  develop  in  other 
industries  transform  the 
personal  computer  industry 
in  months.  The  sides  of  the 
computer  turnpike  are  littered 
with  stalled  and  broken-down 
companies  which  ran  out  of  gas 
or  couldn't  afford  the  tolls.  And 
in  the  face  of  fierce  competitive 
realities,  the  laid-back  cama- 
raderie which  once  symbolized 
the  jeans-clad  hobby  industry  is 
rapidly  becoming  excess  bag- 
gage, something  to  be  flung  out 
the  window  to  reduce  weight. 

All  of  this  was  visible  at  the 
most  recent  Consumer  Elec- 
tronics Show. 

CES  is  a  great  place  for 
industry-watchers.  For  one 
thing,  it's  the  biggest  trade  show 
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THE 


Home  ORGANIZER' 


wm  umsm 


olln 


Now  your  home  computer  can  help  you  cook,  keep  your  accounts,  find  an  address  or 
keep  track  of  your  record  and  book  libraries — with  first-class  software  specially  tailored 
for  the  home  environment. 

The  Home  Organizer™  series  includes  a  wide  range  of  separate  and  individual  programs  for 
different  activities  like  stamp  collecting,  personal  banking,  or  home  pfioto  and  movie 
collections.  Each  one  is  pre-programmed  with  a  "page"  format  planned  out  by  experts  to 
make  it  easy  for  you  to  store  and  retrieve  the  information  you'll  want  for  your  special  activity. 
You  don't  have  to  program  anything  yourself.  Just  load  the  disk  and  start  feeding  in  your  data. 

If  you're  used  to  run-of-the-mill  home  computer  software,  the  speed  and  simplicity  of  the 
Home  Organizer""  series  will  surprise  you.  Each  program  is  written  entirely  in  'machine 
language ",  the  most  basic  computer  code.  So  they  search,  sort  and  analyze  your  data  with 
amazing  speed. 

The  Home  Organizer™  is  fast  enough  to  sort  through  your  household  belongings  in 
seconds,  yet  so  simple  the  children  can  use  it  to  look  up  a  phone  number.  Choose  any  or  all 
program  modules  that  fit  your  needs.  They  make  ideal  gifts,  too! 


sr  K^-^ 
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f  BATTERIES  ^  INCLUDED) 
"Excellence  in  Software" 

P  „     . 1 — ;     ..._-_■  „  For  a  full  color  brochure  write  to: 

Batteries  Included,  186  Queen  Street  West,  Toronto,  Canada  M5V 1Z1  (416)  596-1405  3303  Harbor  Blvd.,  Costa  Mesa,  CA,  92626  (714)  979-0920 

COMMODORE  64  tS  A  flEGJSTERED  TRADE  MARK  OF  COMMOnnRP  n,  l<:,M.r=o  ,,, 


ANNOUNCING 

A  PKOUD  ADDITION 

TODUR  FAMILY 
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The  next  addition  to  your  family  could 
be  the  bright  little  newcomer  in  the  growing 
family  of  IBM®  personal  computers. 

Name:  PCyV'  Weight:  12  pounds. 
Heritage:  more  than  30  years  of  computer 
experience. 

"Junior"  is  a  powerful  tool  for  modern 
times.  Yet  it's  simple  enough  for  a  child 
to  enjoy. 

BRINGING  HOME  BABY 

It's  a  big  day  when  PQV  comes  home. 

The  surprises  begin  the 
moment  you  open 
the  carton. 
Ijjijiiljll ,  ii^*5s33*  Surprise  *  1  is 

the  IBM "  Freeboard — 
a  keyboard  that  doesn't  need  a  connecting  cord. 
The  Freeboard  frees  you 
move  around  and  relax. 

Then  there's  the 
Keyboard  Adventure  — 
an  instructional  exercise 
for  first-time  users.  It's  built  into  the  computer 
and  explained  step- by-step  in  the  Guide  to 
Operations.  It  will  help  anyone  begin  learning 
as  soon  as  PC/V  is  hooked  up  to  a  TV  set. 

In  systems  equipped  with  a  diskette 
drive,  there's  a  program  that  lets  you  explore 
computer  fundamentals  at  your  own  pace,  with 
PQV  as  your  teacher. 

And  to  get  you  off  and  running  from  the 
very  first  day,  a  sample  diskette  with  eleven 
useful  mini-programs  (ranging  from  a 
spreadsheet  for  monthly  expenses  to  a  word 
game  and  a  recipe  file)  is  also  included. 

But  there  are  still  more  surprises. 


FAMILY  COMPUTING  MADE  EASY 

Many  IBM  software  programs  written  for 
other  IBM  personal  computers  will  run  on  PCjr. 
And  inexpensive  new  ones  written  especially  for 
PC/'r  are  being  released. 

An  easy-to-use  diskette  word  processing 
program,  for  example,  uses  pictures  as  well  as 
words  to  guide  you  along.  A  comprehensive 


IBM  home  budget  program  makes  keeping 
track  of  money  easier.  There's  also  a  selection  of 
educational  programs  for  children  at  home  and 
at  school. 

And  when  the  work  is  finished  (or 
perhaps  before),  the  fun  can  begin.  Just  slip  in 
a  game  cartridge  and  stand  back. 

GROWING  UP  WITH  JUNIOR 

Add  a  printer.  A  diskette  drive.  An 
internal  modem  for  telecommunications .  Increase 
user  memory  from  64KB  to  128KB. With 
these  and  other  add-it-yourself  options,  even 
the  lowest-priced  PQV  can  grow  up  real  fast. 

PQV  is  a  powerful  tool  for  home,  school 
or  college.  With  its  optional  carrying  case,  it's  a 
powerful  tool  anywhere  you  care  to  take  it. 


SEE  JUNIOR  RUN 


Junior's  starting  model  includes  a  64KB 
cassette/cartridge  unit  and  Freeboard  for 
about  S700.  A  128KB  mtxlel  with  diskette 
drive  is  about  $1300.  (Prices  apply  at  IBM 
Product  Centers.  Prices  may  vary'  at  other  stores.) 

Your  local  authorized  IBM  PQV  dealer 
proudly  invites  you  to  see  this  bright  little 
addition  to  the  family.  For  the  store  nearest 
you,  just  call  1-800-IBM-PCJR.  In  Alaska  and 
Hawaii,  1-800-447-0890. 


mm.c:jG>iyifE^ 
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in  the  world,  a  fantastic  extravaganza  for  anyone 
who  is  into  gadgets.  It's  the  show  where  consumer 
electronics  manufacturers  gather  en  masse  twice 
a  year  (Las  Vegas  in  January  and  Chicago  in  June) 
to  exhibit  their  newest  wares. 

Despite  the  show's  name,  consumers  are 
barred.  The  80,000-90,000  attendees  are  all 
exhibitors,  dealers,  celebrities,  or  journalists. 
Exhibitors  come  to  entice  dealers.  Celebrities  come 
at  the  expense  of  exhibitors  to  help  lure  the  dealers 
and  journalists.  And  journalists  come  to  interview 
exhibitors  and  skip  from  press  party  to  press  party 
hosted  by  celebrities. 

Besides  all  that,  for  industry  observers  and 
journalists  CES  is  also  a  crystal  ball.  Sometimes  a 
cloudy  crystal  ball,  but  nonetheless  invaluable  for 
divining  the  near  future.  It's  like  peering  into  the 
windows  of  the  cars  flashing  by  on  the  computer 
turnpike.  This  year's  Winter  CES  was  an  indication 
that  the  heavy  traffic  building  up  for  the  last  couple 
of  shows  is  turning  into  a  demolition  derby. 

Computer  Wars  Among  The  Wares 

Most  noticeable  was  the  glaring  lack  of  new  home 
computers  introduced.  This  was  a  significant 
change  from  the  Summer  CES,  where  no  less 
than  17  new  computers  were  on  display  (see  "The 
Fall  Computer  Collection  At  The  Summer  Con- 
sumer Electronics  Show,"  COMPUTE!,  August 
1983).  In  fact,  a  few  companies  which  introduced 
new  machines  at  the  Summer  CES  were  empty- 
handed  at  the  Winter  CES,  having  decided  to  cut 
their  losses  early  and  abandon  the  market.  Other 
companies  were  absent  altogether.  This  doesn't 
mean  that  home  computing  is  fizzling  out.  Sales 
are  still  healthy  and  growing.  Instead,  it's  a  sure 
sign  that  the  market  is  tightening  and  the  long- 
predicted  "shakeout"  has  begun. 

The  big  news  at  the  latest  CES  was  Commo- 
dore, which  attracted  the  most  attention  by  far 
with  its  new  264/364  series.  The  large  Commodore 
exhibit  was  crowded  all  four  days  of  the  show. 

But  aside  from  Commodore,  almost  nobody 
else  was  displaying  new  home  computers.  A 
newly  formed  British  company  had  a  few  pro- 
totypes. Atari  was  there  with  its  XL  series  anr 
nounced  at  the  Summer  CES — minus  the  now 
officially  canceled  1400XL,  and  with  vague  specu- 
lations concerning  the  future  of  the  top-line 
1450XLD.  Apple  was  at  CES  for  the  first  time  in 
about  three  years — minus  its  new  computer,  the 
Macintosh,  which  Apple  preferred  to  introduce  at 
its  stockholders  meeting  later  in  January.  IBM — 
which  created  a  stir  when  it  exhibited  at  the  Sum- 
mer CES  for  the  first  time  in  history — didn't  show 
up  at  this  CES  at  all.  Instead,  IBM  preferred  to 
display  its  new  PCjr  at  the  Comdex  trade  show  a 
month  earlier  in  Las  Vegas.  Texas  Instruments 
was  stuck  with  a  large  exhibit  at  CES,  reserved 
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long  before  the  TI-99/4A  was  dropped .  Not  a  single 
TI-99/4A  was  in  evidence,  and  the  TI  booth  looked 
forlornly  deserted  since  it  just  happened  to  be 
directly  across  the  aisle  from  the  busy  Commodore 
exhibit. 

Another  odd  juxtaposition  of  booths  in  the 
Convention  Center  revealed  just  how  fierce  the 
competition  is  getting.  Coleco's  large  exhibit, 
humming  with  activity  around  dozens  of  Adams 
and  ColecoVisions,  happened  to  face  the  Spectra- 
Video  exhibit  right  across  the  aisle.  Spectra  Video 
has  been  at  the  last  couple  of  CES  shows  with  its 
heavily  advertised  but  unavailable  SV-318  and 
SV-328  computers.  At  this  CES,  Spectra  Video 
said  the  SV-318  has  been  dropped  in  favor  of  an 
upgraded  SV-328  Mark  II  and  a  new  model,  the 
SVI-728  MSX.  To  promote  its  new  computers — 
and,  one  suspects,  to  wage  psychological  warfare 
against  the  Coleco  representatives  across  the 
aisle — SpectraVideo  continuously  staged  a  little 
presentation  during  the  show. 

The  woman  conducting  the  presentation 
compared  the  SpectraVideo  computers  against 
the  Commodore  64  and  especially  the  Coleco 
Adam.  At  one  point,  she  prepared  to  demonstrate 
how  much  louder  the  Adam's  (letter-quality) 
printer  is  than  the  Spectra  Video's  (dot-matrix) 
printer.  "But  first,"  she  smiled,  "union  rules  re- 
quire that  I  wear  these/'  Then  she  donned  a  pair 
of  industrial-duty  ear  protectors. 

Later  in  the  presentation,  when  asserting 
that  the  SpectraVideo  is  a  better  buy  than  the 
Adam,  she  asked  rhetorically,  "Just  how  much  of 
a  Coleco  Adam  could  you  buy  for  the  price  of  a 
SpectraVideo?  Let's  find  out."  Then  she  switched 
on  a  screaming  circular  saw  and  disappeared  for  a 
few  seconds  behind  a  counter.  She  emerged  hold- 
ing an  Adam  presawed  in  half,  spilling  out  chips 
and  wires.  Finally  she  dropped  the  mangled  com- 
puter into  a  large  trash  can  while  the  sound  of  a 
flushing  toilet  echoed  through  a  PA  system  aimed 
at  the  Coleco  booth. 

Meanwhile,  the  Coleco  people  tried  their 
best  to  ignore  the  psychological  attack.  "The  first 
day  of  the  show,  they  were  using  an  actual  toilet 
instead  of  a  trash  can,"  said  Coleco  press  repre- 
sentative Barbara  Wruck,  "but  the  show  manage- 
ment made  them  take  it  down." 

Somehow  this  typifies  what  a  dog-eat-dog 
battle  for  survival  the  home  computer  market  has 
become. 

Commodore's  Built-in  Software 

Yet  this  CES  clearly  belonged  to  Commodore. 
The  company  announced  a  new  series  of  personal 
computers  accompanied  by  a  line  of  peripherals, 
plus  more  software  for  all  its  machines. 

To  set  the  record  straight,  Commodore  flatly 
denied  rumors  that  it  plans  to  drop  the  VIC-20 


"How  MECA  experts 
taught  us  more  Basic 
in  one  hour  than  \A/e 
learned  in  12  hours 
fromabool<r 


"BASIC  BUILDING  BLOCKS'  lets  US  interact 
with  our  computer  and  learn  at  our 
own  pace.  Dad  says  it's  so  easy  to  use, 
it  even  eliminates  the  need  for  him  to 
read  the  manual.  You  should  see  all  the 
programs  Mom  has  written  by  herself. 
I  like  it  because  it  really  gets  into  the 
fun  of  the  computer, .  .fast.  BASIC 
BUILDING  BLOCKS  is  like  having  personal 
computer  experts  in  our  house." 
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•  A  unique,  challenging  and  enter- 
taining introduction  to  8ASIC 
programming. 

•  Consumer  testing  shows  that 
9  ou  t  of  10  people  didn'  t 
even  need  the  manual 

•  BASIC  commands  fullv  demo' 
strated,  including  disk  access, 
sound  and  graphics. 

•  Over  60  sample  programs  exe- 
cuting so  you  can  see  hew  BASIC 
commands  work,  learn  program 
structure  and  flow  of  control. 

•  Innovative  program  design  for 
freedom  of  movement  any- 
where in  the  tutorial.  This  lets 
Ycu  test  sample  programs  at 
vour  own  pace  until  you  under- 
stand how  they  work. 

•  Actually  encourages  vou  to  write 
and  test  your  own  programs. 

•  Design  useful  programs,  trace 
their  flow  and  detect  pro- 
gramming errors. 

Designed  tor  IBM.  Atari  and  Apple  Personal  Computers.  Available  where  fine  software  is  sold 

flf^Ol^JM''  Software  that  nnakes  your 


home  computer  worth  havingr 
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and  Commodore  64  to  make  room  for  the  now 
products.  Commodore  officials  said  it  would  be 
crazy  to  discontinue  the  64  at  a  time  when  sales 
are  booming,  and  that  the  VIC — whose  sales  are 
slackening — will  be  carried  as  long  as  demand 
warrants.  Although  some  trade  papers  have  been 
predicting  the  quick  demise  of  the  VIC,  its  life 
may  have  been  prolonged  by  recent  changes  in 
the  low-end  market.  Now  that  Atari  has  dropped 
the  400  and  Texas  Instruments  has  left  the  market 


The  Coiiiinodore  264.  Note  the  tniiii^un!  mi-oiv-sbapcd  cursor  k 
Qnuniodori'  364V  is  similnr,  but  Ims  a  numcrk  keypad  lo  the  r 

altogether,  the  VIC  is  the  only  widely  available 
home  computer  for  under  $100  (except  for  the 
small  Timex/Sinclair  TS-1000  and  Radio  Shack 
Micro  Color  Computer). 

Two  new  computers  head  up  Commodore's 
latest  product  line:  the  Commodore  264  and  the 
Commodore  364V.  No  prices  were  announced,  but 
Commodore  says  the  264  will  retail  for  under  $500 
and  the  364V  for  slightly  more.  Commodore  says 
the  264  will  be  available  by  April  1  and  the  364V  a 
few  months  later,  but  based  on  past  experience, 
these  target  dates  may  well  be  optimistic.  We 
were  told  privately  that  most  likely  the  264  will 
hit  the  stores  in  quantity  this  summer  (sec  box). 

The  new  computers'  main  features  over  cur- 
rent machines  include  built-in  application  soft- 
ware, more  usable  memorv,  and  a  more  powerful 
BASIC.  The  264  and  364V  are  almost  identical 
except  the  364V  has  a  numeric  keypad  and  built-in 
speech  svnthesizer.  New  peripherals  include  a 
faster,  parallel  disk  drive,  a  redesigned  serial  disk 
drive,  a  redesigned  color  monitor,  a  plug-in  speech 
module,  a  daisy  wheel  printer,  an  inexpensive 
dot-matrix  printer,  and  a  color  dot-matrix  printer. 
Most  of  these  peripherals  will  work  with  the 
Commodore  64  and  VIC-20  as  well. 

The  most  significant  new  feature  is  probably 
the  built-in  software.  Commodore  says  it  will 
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work  like  this:  When  you  buy  a  264  or  364V,  you 
get  to  choose  from  a  selection  of  application  soft- 
ware on  ROM  chips.  If  you  want  a  computer  with 
a  built-in  word  processor,  for  example,  the  dealer 
either  sells  you  one  with  that  option  already  in- 
stalled or  plugs  in  the  proper  chip  himself.  The 
chips  are  internal  and  not  designed  to  be  installed 
by  average  users.  It's  like  ordering  a  car  with  vari- 
ous options. 

When  vou  first  switch  on  a  264  or  364V,  a 

message  at  the  top  of  the  screen 
tells  what  typo  of  software  is 
installed.  You  can  run  this  pro- 
gram at  the  touch  of  a  key.  In 
effect,  it's  a  permanently 
plugged-in  ROM  cartridge. 
There's  still  a  cartridge  slot 
behind  the  computer  if  you 
want  to  plug  in  something  else. 
And,  of  course,  you  can  always 
load  in  programs  from  disk  or 
tape  as  usual.  The  built-in  soft- 
ware does  not  interfere  with 
anything  or  deprive  other  appli- 
cations of  memory. 

The  selection  of  ROM  soft- 
ware will  be  limited  to  whatever 
Commodore  offers.  At  CES, 
^y^-  ^"''  various  prototype  264s  were 

i^ht  of  the  keyboard,     running  SupcrSaipt  264.  a  word 
processor;  Easi/Calc  264,  an  elec- 
tronic spreadsheet;  Coiinnoilore  3-Plus-J,  an  inte- 
grated package  which  includes  a  word  processor, 
file  manager,  spreadsheet,  and  business  graphics; 
Logo;  PILOT;  and  Ma;^ic  Desk  II,  an  integrated 
package  with  Lisa-like  icons,  a  text  editor,  spread- 
sheet, file  manager,  and  calculator.  One  264  was 
even  running  an  educational  game.  All  of  these 
programs  will  be  available  on  cartridge  as  well  as 
installed  ROM  chips. 


A  Step  Sideways? 

Although  Commodore's  new  computers  were 
generallv  well-received  at  CES,  there  were  some 
questions  raised  about  software  compatibility  and 
how  the  264 '364V  will  fit  into  Commodore's  exist- 
ing product  line.  Compared  to  the  Commodore 
64,  they  offer  intriguing  new  features,  but  they're 
also  missing  a  few.  If,  as  expected,  the  264  and 
364V  retail  in  the  $400-5600  range,  more  than  one 
observer  noted  that  it  may  be  advantageous  to 
buy  a  64  and  upgrade  it  instead.  But  as  usual, 
there  will  be  tradeoffs  involved  both  ways. 

The  Commodore  264  has  64K  RAM  (Random 
Access  Memory);  32K  ROM  (Read  Only  Memory); 
a  40-column  by  25-line  screen  display  in  text  mode; 
a  high-resolution  graphics  mode  of  320  by  200 
screen  dots;  128  colors;  a  67-key  full-stroke  key- 
board; four  programmed  (and  reprogrammable) 
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man by  accurately  forecastinK 
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captive  by  deadly  dragons.  Only 
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Create  multi-colored  bar 
graphs  with  a  .surprisingly 
small  amount  of  memory. 


A  fun  way  to  dramatically 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 

for  less  ttian  1 5  cents  eachi — 

every  month  in  COMPUTE! 


Every  month,  COMPUTE!  readers  enjoy  up  to  30  brand 
new,  ready-to-run  computer  programs,  even  arcade 
quality  games. 

And  when  you  subscribe  to  COMPUTE!  at  up  to 
40%  off  the  newsstand  price,  you'll  get  them  all  for  less 
than  15  cents  each! 

You'll  find  programs  to  help  you  conserve  time,  ener- 
gy' and  money.  Programs  like  Cash  Flow  Manager.  Re- 
tirement Planner.  Coupon  Filer.  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense,  Boggier,  Sla- 
lom and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and  fun  with 
First  Math,  Guess  That  Animal  and  Mystery  Spell. 

Looking  for  a  challenge?  You  can  write  your  own 
games.  Customize  BASIC  programs.  Even  make  beau- 
tiful computer  music  and  pictures. 

It's  all  in  COMPUTE!  All  ready  to  type  in  and  run 
on  your  Atari,  Apple,  Commodore,  PET/CBM,  TI 99/4A, 
Radio  Shack  Color  Computer,  IBM  PC  or  IBM  PCjr. 

What's  more,  you  get  information-packed  articles, 
product  reviews,  ideas  and  advice  that  add  power  and 
excitement  to  all  your  home  computing. 

CAUTOU-FREE  . 

1-800-334-0868  V 
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function  keys;  all  the  standard  PET  graphics  char- 
acters; a  750]  microprocessor  chip  for  the  central 
processing  unit  (CPU);  two  tone  generators  with 
eight  volume  levels;  and  your  choice  of  a  built-in 
application  program,  such  as  a  word  processor  or 
electronic  spreadsheet.  The  364V  has  all  the  above 
plus  the  numeric  keypad  and  voice  synthesizer. 

Notice  the  similarities  to  and  differences  from 
the  Commodore  64.  Both  have  64K  RAM,  40x25 
text  modes,  320x200  graphics  modes,  PET  graphics 
characters,  and  four  function  keys.  But  while  the 
64  leaves  only  about  39K  out  of  64K  free  for  BASIC 
programming,  the  264/364V  leaves  a  whopping 
60K.  This  was  accomplished  by  a  more  advanced 
system  of  bank-selection  (sharing  memory  in  the 
same  address  space). 

The  Commodore  64  is  limited  to  16  colors, 
while  the  264/364V  have  128  colors.  This  is  because 
each  of  the  264/364V's  16  standard  colors  has  eight 
luminances  (shades).  This  is  verv  much  like  the 
color  graphics  on  Atari  computers.  Early  Ataris 
also  had  128  colors  (16  colors  x  8  luminances),  and 
current  Ataris  have  256  colors  (16  colors  x  16 
luminances). 

The  Commodore  64  and  264/364V  each  have 
four  function  keys,  but  the  264/364V's  keys  are 
more  advanced.  For  one  thing,  they  are  prepro- 
grammed. Frequently  used  commands  such  as 
LIST,  RUN,  LOAD,  and  SAVE  are  only  a  keystroke 
away.  For  another  thing,  the  keys  are  easier  to 
reprogram  by  average  users.  One  line  of  BASIC 
does  the  trick. 

Another  welcome  addition  to  the  264/364V 
keyboard  is  the  four  separate  cursor  keys.  These 
arrow-shaped  keys  are  conveniently  arranged  in 
a  diamond  pattern  at  the  lower-right  corner  of  the 
keyboard  (see  photo).  There  are  also  two  CON- 
TROL keys.  The  extra  one  is  where  the  RESTORE 
key  used  to  be  on  the  VIC  and  64.  However,  this 
means  the  RUN/STOP-RESTORE  combination  to 
reset  the  computer  no  longer  is  available.  There's 
a  reset  button  on  the  right  side  of  the  264/364V, 
next  to  the  power  switch,  but  it's  a  cold  start 
reset — pressing  it  wipes  out  vour  BASIC  program 
(not  true  of  RUN/STOP-RESTORE). 

You'll  also  notice  that  the  264/364V  have  a 
few  other  things  missing,  too,  compared  to  the 
Commodore  64.  There  are  no  sprite  graphics  and 
no  synthesizer  chip.  Two  of  the  64's  strongest 
features  are  its  multicolored  sprites — which  make 
computer  animation  a  lot  easier — and  its  SID  chip 
(Sound  Interface  Device),  the  most  advanced 
sound  chip  in  any  home  computer.  Instead  of  a 
SID,  the  264/364V  have  a  two-channel  sound  gen- 
erator. This  is  similar  to  the  VIC's  sound  generator, 
but  with  two  channels  instead  of  three. 

More  Powerful  BASIC 

Perhaps  to  make  up  for  these  drawbacks,  the  264/ 
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364V  have  the  most  powerful  version  of  BASIC 
ever  built  into  a  Commodore  computer.  Oddly, 
it's  named  BASIC  3.5.  This  would  seem  to  imply 
that  in  terms  of  power  it  is  halfway  between  the 
BASIC  2.0  (Upgrade  BASIC)  found  in  the  VIC 
and  64  and  the  BASIC  4.0  found  in  the  Commo- 
dore 8032  and  SuperPET  machines.  Yet  BASIC 
3.5  includes  the  disk  commands  of  4.0  and  adds 
dozens  of  other  instructions. 

We  weren't  able  to  get  a  list  of  all  the  new  3.5 
commands  by  press  time,  but  we  did  manage  to 
ferret  out  most  of  them  by  exploring  the  ROMs 
with  the  264/364V's  built-in  machine  language 
monitor.  Disk  commands  include  DLOAD  and 
DSAVE,  DIRECTORY,  HEADER,  SCRATCH, 
COLLECT,  COPY,  RENAME,  BACKUP,  and 
DELETE.  Sound  and  graphics  commands  include 
SOUND,  VOL,  RLUM,  RDOT,  GRAPHIC, 
PAINT,  BOX,  CIRCLE,  GSHAPE,  SSHAPE, 
DRAW,  COLOR,  SCNCLR,  and  SCALE.  There's 
also  a  JOY  command  for  the  joysticks.  Program- 
mers will  appreciate  commands  such  as  DEC  and 
HEXS  (for  converting  decimal  and  hexadecimal 
numbers),  MONITOR  (to  enter  the  built-in 
machine  language  monitor),  ERRS  (read  error 
message),  TRAP  (to  divert  the  program  to  a 
specified  line  number  on  an  error),  TRON  and 
TROFF  (trace  on/trace  off  for  debugging),  AUTO 
(auto  line-numbering),  LOCATE,  HELP, 
DOLOOP,  EXIT,  WHILE-UNTIL,  PRINT  USING, 
and  KEY  (for  reprogramming  the  function  keys). 

Most  of  the  graphics  commands  are  self- 
explanatory.  GRAPHIC  instantly  switches  the 
screen  into  the  specified  graphics  mode.  SCNCLR 
clears  the  graphics  screen.  We  aren't  sure  about 
GSHAPE,  SSHAPE,  and  SCALE,  but  one  Com- 
modore representative  mentioned  something 
about  shape  tables  for  animation,  so  these  com- 
mands may  be  a  replacement  of  sorts  for  the 
missing  sprites. 

For  Productivity-Minded  Users 

As  vou  can  see,  the  new  computers  do  offer  inter- 
esting features  beyond  those  found  in  the  Com- 
modore 64.  Commodore  says  the  264/364V  will 
not  be  aimed  at  the  same  market  as  tlie  64,  so  the 
higher  prices,  missing  sprites,  and  simple  sound 
will  not  be  a  handicap.  Commodore  envisions  the 
264/364V  as  computers  for  "productivity-minded" 
users  who  prefer  the  convenience  of  built-in  ap- 
plication software.  They  see  the  64  as  a  general- 
purpose  home  computer  for  entertainment  as 
well  as  more  practical  applications.  Yet  the  264/ 
364V's  luxurious  graphics  commands  suggest 
there  may  be  some  overlap  in  this  area. 

Critics  of  the  new  computers  point  out  that 
you  could  put  together  the  virtual  equivalent  of  a 
264  by  starting  with  a  Commodore  64  and  adding 
the  extra  features.  You  could  buv  a  64  for  under 


THERE'S  A  COMPUTER  BORN  EVERY  MINUTE 

GIVE  IT  A  HOME. 


For  90  v»99  with  the  CS-1632  you  can  house  your  computer, 
peripherals,  and  accessories  without  spending  a  fortune. 


For  those  with  a  large  computer  family  the  CS-2748  gives  you  all  the  room  you 
need  for  your  computer,  monitor,  printer,  peripherals,  software,  etc.  at  a  price 
that's  hard  to  believe:  $299.95. 


The  CS-1632  computer  storage 
cabinets  compact  yet  fuinc!ional 
design  fits  almost  anywhere 
while  housing  your  computer 
monitor,  joysticks,  software, 
books  and  peripherals  all  for 
only  $89.95. 

The  slide  out  shelf  puts  the 
computer  at  the  right  height  and 
position  for  easy  comfortable 
operation. 

The  fold  up  locking  door  keeps 
unwanted  fingers  off  the  key 
board  when  not  in  use. 
To  store  joysticks  just  turn  them 
upside  down  and  slide  them  into 
the  inverted  storage  rack. 
Twist  tabs  on  the  back  of  center 
panel  allow  for  neat  concealed 
grouping  of  wires,  while  power 
packs  rest  hidden  behind  center 
panel  on  shelf. 
The  slide  out  software  tray 
has  room  for  14  cartridges  or 
cassettes  and  up  to  30  diskettes. 
Most  brands  of  software  will  fi! 
between  the  adjustable  parti- 
tions with  a  convenient  hook  for 
the  spare  key  at  rear 
Stand  fits  Atari  400  &  800, 
Commodore  64  &  VIC  20. 
T!99/4AandTRS-8a 
Cabinet  dimensions  overall  36" 
high  X  33-7/8"  wide  x  16"  deep. 


To  order 


:;end  $89.95  to:      To  order  CS-2748  send  $299.95  to: 


HVTB] 


'  SYSTEMS  i 


F.O.BOS446 

Wcf  t  LTon,  OK  97069 

For  Fast  Phone  Orders  CaU  ToU  Free  1-800-547-3100 
Inside  Oregon  Cail  (503)  635-6667 


Name. 


Address 


City  

Quantity_ 


.State 


.CS-1632 


Quantity. 


-Zip, 


.CS-2748 


HVTEC 


□  Golden  Oak  Finish  Q  Natural  walnut  finish 

Q  My  persona!  check,  cashiers  check  or  money  order  is  enclosed. 

□  BillmyVISA* Exp  Date 

n  BiH  my  MasterCard  *  Exp.  Date  

[j  Please  include  freight  charge  on  my  VISA  or  MasterCard. 

Card  Holders  Signature 

ImmediAW  shipment  :f  in  Mock  Ifnot.  dUow  3-4  weeks  (of  deijvetv  Ifpersorui  check  i*  sent  aDow  *ddiflonaJ 
2  weeks.  CS- 1632  ^ps  UPS  freighl  coUecl  from  Oregon  CS-2746  ships  by  Iruck  freight  colJea  from  Oregon 
Fnces  subject  10  change  Shipment  subject  to  avaiitt&ibtv 

Both  ihe  CS- 1632  and  CS-274&  ship  unassembled  in  two  canons  Assembly  requires  oniv  a  screwdrrver. 

hammer,  arvl  it  few  rrvnuies  of  your  time 

Choice  in  stmulated  woodgrgoi  of  weim  goiden  04k  or  rich  rulural  walnut  f:r^ish 


The  two  slide-out  shelves  put 
the  keyboard  at  the  proper  oper- 
ating height  while  allowing  easy 
access  to  the  disk  drives. 
The  bronze  tempered  glass  door 
protecting  the  keyboard  and 
disk  drives  simply  lifts  up  and 
sUdes  back  out  of  ihe  way  during 
use. 

Twist  labs  on  the  back  of  the 
center  panel  allow  for  neat  con- 
cealed grouping  of  wires  while 
a  convenient  storage  shelf  for 
books  or  other  items  lies  below. 
The  printer  sits  behind  a  fold 
down  door  that  provides  a  work 
surface  for  papers  or  books 
while  using  the  keyboard,  The 
lift  up  top  allows  easy  access 
to  the  top  and  rear  of  the  printer. 
A  slot  in  the  printer  shelf  allows 
for  center  as  well  as  rear 
feed  printers. 
Behind  Ihe  lower  door  are 
a  top  shelf  for  paper,  feeding  the 
printer,  and  a  bottom  shelf  to 
receive  printer  copy  as  well 
as  additional  storage 
Stand  fits  same  computers 
as  the  CS- 1632  as  well  as  the 
Apple  I  and  11,  IBM-PC.  Franklin 
and  many  others. 
The  cabinet  dimensions  overall: 
39-1/2"  high  X  49"  wide 
X  27"  deep. 

Keyboard  shelf  20"  deep  x  26" 
wide.  Disk  drive  shelf  15-34" 
deep  X  26"  wide.  Top  shelf  for 
monitor  17"  deep  %  27"  wide. 
Printer  shelf  22"  deep  x  19"  wide. 


$200,  add  a  Simon's  BASIC  cartridge  to  get  a  simi- 
lar array  of  advanced  commands,  and  get  one  or 
more  application  programs  on  cartridge  tor  SI 00 
or  so.  That  wav  vou'd  have  the  sprites  and  SID 
chip,  and  if  the  264  sells  for  S400  to  $500,  the  64 
system  might  e\'en  be  cheaper.  Add  a  voice  synthe- 
sizer, and  the  64  system  would  resemble  a  364V. 

You  still  wouldn't  have  as  much  usable  mem- 
ory, however — remember  the  new  computers 
leave  60K  free  for  BASIC.  Your  programs  wouldn't 

be  as  transportable  to  other 
machines,  because  not  every 
one  would  have  Simon's  BASIC. 
The  application  software  on 
cartridge  would  be  marginally 
less  convenient  than  the  new 
computer's  built-in  software. 
But  otherwise,  the  beefed-up  64 
system  would  be  quite  similar  to 
the  264/364V.  Which  is  the  better 
buy?  We  canncit  presume  to 
know  what's  best  for  every  user. 
As  always,  it  depends  on  indi- 
vidual tradeoffs — ^like  whether 
to  buy  a  Commodore  or  an  Atari 
versus  a  Coleco  or  a  Radio 
Shack.  The  question  will  be 
resolved  in  the  marketplace. 

Software  Compatibitity 

There  was  some  confusion  at  CES  over  how  much 
Commodore  64  software  will  be  compatible  with 
the  new  264/364V.  Generally  speaking,  not  much. 

About  the  only  programs  that  will  work  with- 
out modification  are  those  written  in  straight 
BASIC  without  PEEKS  or  POKEs.  BASIC  3.5  apr 
pears  to  be  upward-compatible  from  BASIC  2.0, 
which  means  that  BASIC  programs  written  on  a 
VIC  or  64  might  work  on  a  264/364V,  but  not 
necessarily  vice  versa,  PEEKs  and  POKEs  are 
Important  because  thev  directly  access  memory, 
and  the  264/364V's  internal  memory  maps  are  not 
the  same  as  those  in  the  older  computers.  For 
instance,  the  cassette  buffer  in  the  new  computers 
starts  at  address  819  instead  of  828 — a  small  dif- 
ference, but  one  which  could  affect  some  programs 
using  the  buffer  for  storing  machine  language 
subroutines. 

Because  of  the  memory  differences,  nearly  all 
machine  language  programs  will  have  to  be  mod- 
ified or  rewritten  (which  includes  the  vast  majority 
of  commercial  software).  Fortunately,  at  least  the 
machine  language  itself  is  compatible.  Don't  let 
the  7501  CPU  chip  in  the  264/364V  throw  you;  it's 
still  fundamentally  identical  to  the  6502/6510  chips 
in  the  VIC  and  64.  The  instruction  set  is  the  same. 
The  differences  are  in  the  hardware.  The  7501  has 
extra  lines  to  control  a  more  advanced  bank- 
selection  system.  This  makes  it  possible  to  have 
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60K  free  RAM  in  an  eight-bit  computer  which 
also  includes  32K  ROM  {normally  eight-bit  com- 
puters are  limited  to  64K  total  memory). 

Commodore  says  its  most  popular  software 
for  the  64  will  be  converted  to  the  264/364V  as 
soon  as  possible.  Intermediate  home  programmers 
probably  could  convert  many  BASIC  programs. 
Programs  with  extensive  machine  language 
probably  will  require  the  talents  of  advanced 
programmers. 


Thi'fln'k  Ellin  Fjitfrj>ri^c  fiviii  Britniii.  Notice  llic  btiill-iii  jo\/:-itick.  Two  more 
^itick^  can  iiho  he  plugged  in. 


Superfast  New  Commodore  Disk 

Commodore  also  announced  a  complete  line  of 
charcoal  gray  peripherals  designed  to  match  the 
264/364V.  No  prices  or  availability  dates  were 
released  by  press  time.  Most  of  these  peripherals 
are  also  compatible  with  the  VIC  and  64. 

One  which  isn't  directly  compatible  is  the 
SFS  481  parallel  disk  drive.  This  hooks  up  to  the 
new  computers  via  a  rear  parallel  port  and  is  mark- 
edly faster  than  the  current  1541  serial  disk  drive. 
(Parallel  peripherals  are  faster  than  serial  devices 
because  thev  exchange  ciata  with  the  computer  in 
bundles  of  eight  bits,  rather  than  one  bit  at  a  time.) 
The  SFS  481  stores  up  to  170K  of  data  on  one  side 
of  a  5'/i-inch  tToppy  disk,  a  format  compatible 
with  the  older  1541,  4040,  and  2031  drives,  as  well 
as  the  new  1542  disk  drive.  Although  there  is  no 
way  to  plug  the  SFS  481  into  a  VIC  or  64,  it's  pos- 
sible that  an  independent  company  could  design 
an  adapter. 

The  new  1542  drive  is  a  slightly  redesigned 
1541.  Colored  charcoal  gray  to  match  the264/364V, 
it  works  with  the  VIC  and  64,  too.  Disks  are  com- 
patible with  the  1541,  SFS  481,  4040,  and  2031. 

The  DPS  1101  daisy  wheel  printer  works  at 
18  characters  per  second,  uses  friction  feed,  is 
bidirectional,  and  has  spacing  modes  of  10,  12, 
and  15  characters  per  inch,  plus  proportional. 
Although  no  price  was  released,  it  is  expected  to 
be  relatively  inexpensive  for  a  daisy  wheel  printer 


Atlislv 
a  letter-quality  printer 
for  tightwads. 


And  we  don't  mean  a  borgain-bosement 
spedal,  eHJher. 

Not  by  a  long  shot.  The  Abati  LQ-20  is  a  top- 
quality  printer,  all  the  way.  Offering  quiet,  bidirec- 
tional operation,  an  18  characters  per  second 
printing  speed,  single  sheet  or  optional  con- 
tinuous form  tractor  feed,  and  a  full  one-year 
warranty.  All  at  a  price  even  Ebenezer 
Scrooge  would  love. 

And  you'll  love  it,  too. 


Especially  when  you  consider  that  the  Abati 
LQ-20  is  compatible  with  IBI\/I,  Apple,  or  any 
other  microcomputer  you  might  own. 

Plus,  it's  incredibly  easy  to  configure  for  word 
processors  and  spreadsheets,  as  well  as  most 
other  software.  And  it's  available  in  either  serial 
or  parallel  formats. 

At  $479*  it's  easy  to  see  why  anyone  looking  for 
a  great  buy  in  letter-quality  printers  is  looking  at 
the  Abati  LQ-20.  So  should  you.  After  all,  you 
don't  have  to  be  a  tightwad  to  buy  the  Abati 
LQ-20.  Just  act  like  one.  Call  1-  800-447-4700. 


Abati 


'Parallel  model. 


Apple  is  (he  registered  Irademark  of  Apple  Compuler,  Inc 
IBM  IS  (he  registered  Irademark  of  Internalional 
Business  Machines  Corp. 


(probably  well  under  $1000). 

The  MPS  802  dot-matrix  printer  uses  an  8x8 
matrix,  has  all  the  PET  graphics  characters,  dot- 
addressable  graphics,  prints  at  60  characters  per 
second,  and  prints  up  to  80  columns.  It  is  bidirec- 
tional and  has  tractor  feed  onlv. 

The  MCS  801  color  dot-matrix  printer  can 
produce  dot-addressable  graphics  in  black,  yel- 
low, purple,  cyan,  green,  red,  and  blue.  It  can 
reproduce  all  the  PET  graphics  characters.  It  is 
unidirectional  only,  prints  at  38  characters  per 
second,  and  has  both  friction  and  tractor  feed. 

Commodore  has  redesigned  its  popular  1701/ 
1702  color  monitor,  now  called  the  1703.  Specifi- 
cations are  virtually  identical:  13-inch  screen;  built- 
in  speaker;  audio/video  inputs  on  the  front;  sepa- 
rate chrominance,  luminance,  and  audio  inputs 
on  the  rear;  and  compatibility  with  video  cassette 
recorders. 

Peripherals  That  Talk  And  Feel 

One  of  the  more  interesting  Commodore  peripher- 
als at  CES  was  the  C64850  Magic  Voice  Speech 
Module  for  the  Commodore  64.  It  has  a  built-in 
vocabulary  of  235  words,  and  more  can  be  loaded 
from  optional  cartridges  or  disks.  The  voice  is 
pleasant  and  female,  a  relief  from  the  usual 
robotized  computer  voices.  You  can  vary  the 
voice's  speed  from  .65  to  1.4  times  normal.  It  is 
programmable  in  BASIC  or  machine  language  so 
you  can  write  your  own  talking  programs.  The 
module  plugs  into  the  cartridge  slot,  and  has  an 
additional  slot  so  you  can  piggyback  a  program 
cartridge  at  the  same  time.  There's  also  an  audio 
output  jack  so  you  can  hook  it  up  to  a  TV  or  sound 
system. 

Since  the  voice  module  doesn't  monopolize 
the  64's  SID  chip,  you  can  program  voice  and 
music  simultaneously.  Talking  can  even  be  syn- 
chronized with  graphics.  A  special  line  of  software 
designed  to  work  with  the  module  is  on  its  way, 
including  talking  versions  of  Corf,  Wizard  of  Wor, 
A  Bee  C'fi,  and  Couutiiii^  Bee.  The  module  will  sell 
for  only  S59. 95. 

Another  fascinating  peripheral  is  still  on  the 
drawing  boards,  but  an  experimental  prototype 
was  demonstrated  at  CES.  It's  a  clear  plastic  touch- 
sensitive  mat  that  overlays  your  TV  or  monitor 
screen.  Wlien  perfected,  this  would  bring  touch- 
screen technology  to  existing  home  computers. 
The  mat  is  wired  so  you  can  simply  touch  your 
finger  to  the  screen  to  pick  an  option,  select  an 
answ^er,  or  whatever  the  program  calls  for.  One 
problem  to  be  overcome  is  designing  different- 
sized  mats  to  work  with  TV  screens  of  varying 
sizes.  It  will  probably  be  at  least  a  year  before  the 
touch-screen  is  ready  for  sale. 

One  long-awaited  peripheral  we  won't  see 
for  a  while  is  the  add-on  synthesizer  keyboard  for 
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the  Commodore  64.  First  shown  a  year  ago  at  the 
last  Winter  CES,  it  was  supposed  to  include  three 
additional  SID  chips  and  sophisticated  music  soft- 
ware, all  for  under  $100.  Unfortunately,  a  Com- 
modore spokesperson  said  this  project  is  on  a 
back  burner.  We  heard  that  Commodore  is  think- 
ing about  reworking  it  as  a  stand-alone  synthe- 
sizer, possibly  in  addition  to  the  Commodore  64 
add-on  version. 

Another  new  product  announced  at  the 
Winter  CES  a  year  ago  is  just  now  becoming  avail- 
able: the  transportable  version  of  the  Commodore 
64.  It  showed  up  at  this  CES  renamed  again  as 
the  SX64  (previously  known  as  the  SX-100  and 
Executive  64).  Specifications  are  the  same — basi- 
cally it's  a  Commodore  64  built  into  a  carrying 
case.  It  has  a  built-in  5-inch  color  monitor  and 
1541-type  disk  drive.  The  detachable  keyboard 
(which  forms  the  top  of  the  carrying  case)  has  all 
the  same  keys  as  the  64.  The  SX64  works  with  all 
Commodore  64-software  and  peripherals.  Retail 
price  is  $995. 

More  Commodore  Software 

Here's  a  summary  of  the  new  Commodore  soft- 
ware at  CES.  Most  was  developed  for  Commodore 
by  outside  software  companies  and  will  be  sold 
under  Commodore's  name: 

•  Coniiuodore  Lo^^o.  Designed  for  the  Commo- 
dore 64  and  264  by  Terrapin,  this  Logo  has  all  the 
features  of  Terrapin's  Apple  Logo  plus  more  com- 
mands, seven  programmable  sprites,  music,  and 
30  percent  more  usable  memory.  It's  available  on 
disk  for  $80. 

•  Micro  Illustrator.  Designed  by  Island 
Graphics  for  the  64  and  264,  this  drawing  program 
works  with  a  joystick  or  light  pen  and  has  a  mag- 
nification mode  for  fine  details.  Commodore  says 
the  64  version  will  be  available  by  the  time  you're 
reading  this.  The  264  version  will  use  all  128  colors 
and  be  available  when  the  computer  reaches  the 
market.  No  price  yet. 

•  Micro  Cookbook.  Developed  by  Virtual  Com- 
binatics  for  the  Commodore  64,  this  program  helps 
plan  meals  (including  leftovers),  comes  up  with 
recipes  using  odds  and  ends  in  an  understocked 
kitchen,  suggests  how  to  combine  supermarket 
specials  into  recipes,  and  suppHes  calorie  and 
nutritional  information.  Available  immediately 
for  about  $40. 

•  luternatioiml  Sotxer.  We  played  this  on  a  64 
at  CES  and  it's  great.  Three-dimensional  graphics, 
realistic  animation,  and  options  for  one  or  two 
players.  The  winning  team  even  gets  a  trophy 
to  the  cheers  of  a  crowd.  Available  immediately 
for  $34.95. 

•  Vidiizzles,  jack  Attack,  and  Solar  Fox.  There 
will  be  versions  of  these  games  for  the  64  and  264. 
Viduzzles  is  a  video  jigsaw  puzzle — great  for  kids — 


If  you've  been  having  a  hard  time 
teaching  your  newly-adopted  computer 
there's  more  to  life  than  fun  and  games, 
you're  not  alone. 

Now,  you  can  introduce  your  Commodore  64™  to  the  Work  Force:  affordable,  easy-to- 
use  software  and  hardware  that  will  unleash  the  power  you  always  expected  from  your 
Commodore  64^" ,  but  thought  you  might  never  see. 


is  simply  the  best  word  processing  program  of  its 
klnd"--ioaded  with  advanced  features,  yet  so  easy  to 
use  even  a  novice  can  get  professional  results.  With 
SpeliPack"^,  It  even  corrects  your  spelling]  Once  you've 
tried  it,  you'll  never  use  a  typewriter  again. 


(fomierly  Delphi's  Oracle) 
is  like  a  computerized  filing  cabinet  with  a 
brain.  Organize  files  for  recipes,  albums, 
or  the  membership  of  your  service  club. 
Then  search,  sort,  arrange  and 
analyze  your  information  with  speed 
and  flexibility  that's  simply  astounding. 

SpellPack'' 

teaches  your  64  to  spell.  It  checks  an  entire 
document  in  2  to  4  minutes  against  a 
dictionary  of  over  20,000  words.  And  you 
can  add  up  to  5,000  of  your  own 
specialized  terms.  Type  letter  perfect  every 
time! 


BusCard  H  '" 
is  a  magic  box  that  lets  you  transfomn  your  humble 
home  computer  into  a  powerful  business  machine,  it 
gives  you  the  added  power  of  BASIC  4.0,  and  lets 
you  add  IEEE  disk  drives,  hard  disk,  virtually  any 
parallel  printer,  and  other  peripherals  without  extra 
interfaces.  Completely  software  invisible. 

BJ.'SO '"  Column  Adaptor 

gives  you  crystal  clear  80  column 

display.  Using  the  highest  quality 

hardware,  we've  eliminated  the  problems 

of  snow,  fuzziness  and  interference. 

Basic  4.0  commands  greatly  simplify 

disk  drive  access.  Switches  easily  from 

40  to  80  column  display. 


Discover  the  true  power  of  your 

Commodore  64 '".  Ask  your  dealer  about 

the  Commodore  64"*  Work  Force,  from 

Batteries  Included — the  company  that 

doesn't  leave  anything  out  when  it  comes 

to  making  things  simple  for  you. 


INCLUDED 


"Excellence  in  Software" 

These  products  have  been  developed  spedficiiJIy  for  Commodore  computers  by  Batteries  Included  and  are  totally  compatible  with  each  other.  For  a  full  color  brochure  write  to: 

1 86  Queen  Street  West,  Toronto,  Canada  M5V 1  Zl  (41 6)  596- 1 405  /  3303  Harbor  Blvd. ,  Costa  Mesa,  CA.  92626  (71 4)  979-0920 

M  AND  COMMODORE  64  ARE  HEGISTEHED  TRADE  lUIARKS  OF  COMMODORE  BUSINESS  MACHINES 


and  the  other  two  are  action  games.  Available  in 
the  spring;  no  prices  yet. 

•  Vidtex.  This  terminal  program,  developed 
by  the  CompuServe  Information  Service,  lets  you 
download  files  into  a  32K  buffer  with  the  Corn- 
modore  64.  There's  also  a  printer  option,  ten 
programmable  function  keys,  and  color  graphics 
support.  No  price  vet. 

•  Ten  educational  programs  on  disk  and  car- 
tridge for  the  VIC  and  64,  including  the  Milliken 
Ediiftiii!  series  developed 

under  National  Science 
Foundation  grants,  and 
the  Kinder  Koiicepfs  series 

Atari's  Revised 
Line-Up 

Instead  of  introducing 
loads  of  new  products, 
at  this  CES  Atari  seemed 
to  be  retrenching  from 
recent  losses  and  concen- 
trating on  getting  previ- 
ously announced  prod- 
ucts to  market. 

The  new  XL  line  of 
home  computers,  intro- 
duced at  last  summer's 
CES,  has  been  revised 
slightly.  Originallv  com- 
posed of  the  600XL, 
800XL,  1400XL,  and 

1450XLD,  the  line  now  consists  of  only  the  600XL 
and  800XL.  The  1400XL  has  been  quietiv  dropped, 
and  the  1450XLD  sounds  iffy.  The  1400XL,  re- 
member, was  the  successor  to  the  ill-fated  1200XL 
and  included  64K  RAM;  four  special  function 
keys  in  addition  to  START,  SELECT,  and  OP- 
TION; a  HELP  key;  and  a  built-in  modem  and 
speech  synthesizer.  Atari  officials  had  little  to  say 
about  why  the  1400XL  was  dropped  before  it 
reached  the  marketplace,  but  the  company's  re- 
cent financial  and  production  troubles  probably 
had  something  to  do  with  it.  Atari  seems  to  be 
scaling  down  its  ambitions  somewhat  in  an  effort 
to  recover  its  fiscal  health. 

The  1450XLD  was  displayed  at  CES,  but  Atari 
officials  would  not  say  when  it  would  go  into  pro- 
duction or  how  much  it  would  cost.  Said  one  offi- 
cial, "The  fact  that  we're  displaying  the  computer 
here  indicates  our  intentions  to  eventually  pro- 
duce such  a  product.  But  we  cannot  give  any  de- 
tails at  this  time." 

Atari  fans  eagerly  await  the  1450XLD  because 
it's  the  flagship  of  the  XL  series  and  luxuriously 
equipped.  Besides  all  the  features  of  the  1400XL — 
including  the  on  board  modem  and  speech  syn- 
thesizer— the  1450XLD  also  has  a  built-in,  double- 
sided,  double-density  disk  drive  with  direct  mem- 
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The  Atari  li^^ht  pen  phi;^^  into  a  joystick  port 


ory  access  for  high  speed.  Retail  prices  in  the  $1000 
range  have  been  kicked  around.  The  deciding 
factor  in  whether  the  1450XLD  survives  its  gesta- 
tion period  may  be  whether  Atari  wants  to  enter 
the  high-end  home/low-end  personal  market. 
And  that  might  depend  on  how  the  competition 
fares— such  as  the  IBM  PCjr  and  the  Apple  He. 

Pascal  And  Super  PILOT 

Instead  of  new  computers.  Atari  showed  up  at 

CES  with  some  new 
accessories  and  software. 
Almost  everything  works 
with  original-model 
Atari  computers  as  well 
as  the  XL  series. 

The  Atari  1064 
Memory  Module  plugs 
into  the  rear  expansion 
port  of  the  600XL  to  up- 
grade its  memorv  from 
16Kto64KRAM'.  No 
price  was  announced, 
but  it  should  be  in  the 
$100  range. 

The  Atari  Translator 
is  a  two-sided  disk  with 
an  operating  system 
more  like  the  old  one 
instead  of  the  XL  oper- 
ating system.  This  allows 
a  greater  percentage  of 
software  written  for  older  Ataris  to  work  on  the 
XLs.  It  requires  64K  RAM.  It's  available  from  Atari 
Customer  Service  and  the  Atari  Program  Exchange 
for  $9.95.  Atari  also  released  DOS  3,  which  sup- 
ports the  new  double-density  1050  disk  drives, 
and  announced  that  copies  of  DOS  3  will  be  free 
to  those  who'd  already  bought  1050  drives.  It  will 
be  packed  with  all  future  1050s. 

A  perfected  version  of  the  long-awaited  Atari 
light  pen  was  shown,  along  with  its  new  Atari- 
Graphics  software.  At  CES,  an  artist  was  using  the 
pen  to  draw  very  nice  impromptu  portraits  of 
showgoers.  It  requires  only  16K  and  retails  for 
$99.95,  including  software. 

AtariLab,  the  first  in  a  series  of  electronic 
science  kits,  is  aimed  at  students  aged  9  to  18  and 
adults.  The  AtariLab  is  a  module  that  plugs  into 
the  computer,  allowing  you  to  add  various  sensors 
and  probes.  The  idea  is  to  turn  the  computer  into 
a  science  station.  Accompanying  software  dem- 
onstrates science  theories  and  lets  you  run  experi- 
ments. The  AtariLab  Starter  Set  with  temperature 
sensor  retails  for  $89.95.  The  add-on  light  module 
will  cost  $49.95. 

AtariLab  is  the  first  product  from  Atari  Learn- 
ing Systems,  a  newly  formed  group  within  Atari 
which  will  concentrate  on  educational  software. 


FAX. 
WHO  DISCOVERED  AMERICA? 


'•*!i*a»W    lt^. 


Chances  are,  you  got 
the  answer  right.  But  not  all 
the  questions  in  this  computer 
version  of  the  popular  Exidy 
Arcade  Quiz-game  are  so 
easy.  Can  you  name  the  only 
bachelor  to  become  the 
President  of  the  United  States?  Or  identify  what  the 
initials  stand  for  in  0.  J.  Simpson's  name?  (If  you 
guessed  "Orange  Juice','  you  won't  score  any  points.) 

Remember,  FAX  isn't  just  a  thinking  game- 
it's  a  fast  thinking  game.  FAX  pits  your  knowl- 
edge and  reflexes  against  the  clock . .  .or  an  opponent. 


The  faster  you  respond,  the  more  points  you 
score 

So  get  the  FAX.  You'll  find  over  3700 
questions  and  answers  on  Football,  Baseball, 
Television,  Movies,  Music,  History,  Science, 
Art,  Literature  and  other  subjects.  FAX  is  mul- 
tiple choice,  multiple  fun.  If  only  school  could 
be  like  this. 

One  or  two  players,  keyboard  controlled. 


Strategy  Gamesfyr  the  Action-Game  Player 


Other  new  products  from  the  group  include  Atari 
Pascal  2.0,  a  proj^ramming  language  available  on 
disk  for  $69.95;  Atari  Super  PILOT,  another  lan- 
guage with  extended  sound  and  graphics  com- 
mands, $39.95;  Player  Maker ,  a  utility  for  creating 
player-missile  graphics,  $39.95;  and  Screen  Maker, 
a  utility  for  mixing  text,  graphics,  and  combining 
up  to  15  different  graphics  modes  on  the  screen 
simultaneously,  S39.95.  All  require  48K  RAM. 

More  Atari  Software 

Here  are  highlights  of  the  new  Atari  software 
introduced  at  CES.  Most  is  compatible  with  both 
the  XL  and  older  computers: 

•  AtnriMtisic !  and  AtariMusic  II,  music  in- 
struction programs  which  combine  tutorials, 
simulations,  cirills,  and  tests  with  a  videogame. 
Both  were  developed  by  a  university  computer 
music  professor.  AtariMusic  I  covers  note-reading 
and  whole  and  half  steps;  AtnriMtisic  11  covers 
major  scales  and  keys.  Each  is  available  on  disk 
for  $39.95  and  requiVes  24K. 

•  Captain  Hook's  Revenge,  a  two-part  game  that 
is  the  result  of  a  joint  venture  between  Atari  and 
Walt  Disney  Productions.  The  game  is  designed 
to  teach  map,  math,  and  strategy  skills.  Available 
on  disk  for  $44.95;  32K  required' 

•  SynFile,  SxpiCak,  and  SynTrend,  three  inte- 
grated programs  for  home  management.  Not  only 
are  they  compatible  with  each  other,  but  the  last 
two  also  work  with  AtariWriler.  For  example, 
spreadsheets  created  with  Si/nCalc  and  mailing 
lists  compiled  on  SynFile  can  be  combined  with 
documents  on  AtariWriter.  Sy}iTreud  is  a  two-part 
graphics  and  statistics  package.  All  were  de- 
veloped for  Atari  by  Synapse  Corp.  They  are  avail- 
able on  disk  for  $99.95  each  and  require  48K. 

•  New  videogames  include  The  Legacy,  placed 
in  a  world  decimated  by  nuclear  war;  Mario  Bros., 
a  sequel  to  Donkey  Kong;  Donkey  Kong  Jr.;  and  Mil- 
lipede (aW  (or  $49.95  each). 

AtariSoft,  Atari's  third-party  software  divi- 
sion, also  announced  seven  new  games  for  the 
Commodore  64,  VIC-20,  IBM  PC,  Apple  II,  and 
TI-99/4A.  These  are  joust,  Battlezoiw,  Pole  Position, 
Ms.  Pac-Man,  Moo}i  Patrol,  Gahuiaii,  and  jungle 
Hunt.  {Battlezone  and  Galaxiau  are  not  available  on 
the  TI.)  Each  game  costs  $34.95  on  disk  or  $44.95 
on  cartridge. 

IBM  Emulator  For  Adam? 

Coleco,  which  stole  the  show  at  the  Summer  CES 
with  its  introduction  of  the  Adam,  announced 
several  new  peripherals  for  its  all-in-one  system — 
including  hints  that  some  sort  of  IBM  PC  emulator 
might  be  on  the  way. 

Coleco  officials  were  rather  vague  about  this 
device.  They  said  only  that  an  accessory  which 
would  allow  the  Adam  to  run  PC  programs  was 
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in  planning  stages,  and  that  it  probably  wouldn't 
be  ready  until  later  this  year.  They  gave  no  indi- 
cation of  how  it  would  work  or  how  much  it  would 
cost. 

Since  the  Adam  and  PC  are  completely  dif- 
ferent computers,  right  down  to  their  CPUs,  a  PC 
emulator  would  be  quite  a  trick.  Basically  it  would, 
require  shrinking  down  a  PC  to  an  add-on  board 
or  box.  This  could  easily  end  up  costing  more 
than  the  Adam  itself.  Observers  greeted  Coleco's 
announcement  with  skepticism. 

More  Than  170  Programs 

The  more  conventional  peripherals  announced 
were  a  second  Digital  Data  Drive  for  installation 
in  the  Adam's  Memory  Console  (under  $150);  a 
S'/i-inch  double-sided,  double-density  disk  drive 
which  stores  up  to  360K  per  disk  (under  $350); 
the  AdamLink  1200  direct-connect  modem,  which 
has  automatic  300/1200  baud  switching  and  its 
own  telecommunications  software  (under  $175); 
the  64K  Memory  Expander,  which  upgrades  the 
Adam  from  80K  to  144K  RAM  {under  $150);  the 
SmartWriter  Printer  Tractor  Feed,  which  snaps 
onto  the  Adam's  printer  (under  $100);  and  the 
Adam  Accessory  Kit,  which  includes  three  extra 
daisy  wheels  and  a  carbon  ribbon  cartridge  for 
the  printer,  plus  a  blank  data  pack  and  tape  head 
cleaner  (under  $35). 

Coleco  and  CompuServe  jointly  announced  a 
new  information  service  for  Adam  users — Adam 
On-Line.  It  will  contain  new  product  develop- 
ments, the  latest  news  on  the  Adam,  hints  and 
tips  on  use  and  maintenance,  a  message  center/ 
bulletin  board,  a  CB  radio  simulation  for  con- 
versing with  other  users,  a  software  exchange  for 
uploading  and  downloading  programs,  a  Con- 
sumer Feedback  Forum,  and  an  Adam  Electronic 
Mail  Hotline.  Two  hours  of  free  use  come  with 
the  purchase  of  the  AdamLink  1200  modem. 

Coleco  and  Honeywell  Information  Systems, 
Inc.,  jointly  announced  a  new  service  arrangement 
for  the  Adam.  Honeywell  already  has  six  service 
centers  operating,  and  35  are  planned  to  be  opened 
by  this  spring.  Adam  owners  can  locate  the  nearest 
one  by  calling  Coleco's  toll-free  information 
number. 

Coleco  and  Digital  Research  announced  that 
Digital's  Personal  CP/M  operating  system  will  be 
available  for  the  Adam  for  under  $75.  This  is  an 
easy-to-use  version  of  the  standard  CP/M  (Control 
Program  for  Microcomputers)  operating  system. 
It  will  be  sold  on  data  packs  and  disks.  As  CP/M 
programs  are  transferred  to  the  Adam's  disk  for- 
mat and  data  packs,  a  large  pool  of  software  will 
become  available. 

Coleco  also  announced  more  than  170  new 
programs  for  the  Adam.  Only  a  few  were  ready 
for  CES.  They  fall  into  four  categories:  Family 


DRAGONfflDERS  OF  PERN. 
RY  THE  UNFRIENDLYSKIES. 


Shooting  down  the  menac- 
ing and  constantly  multiplying 
Threads  isn't  easy,  but  it's  only 
one  of  the  challenges  in  this 
official  computer  game  version  of 
Anne  McCaffrey's  famous  book 
series. 

Your  strategy  will  be  put  to 
the  test  as  you  try  to  negotiate  alliances  with  Pern's  Lord 
Holders  in  an  attempt  to  form  the  most  powerful  Weyr 
on  the  planet.  Should  you  take  a  firm  stance  or  compro- 
mise? Will  asking  a  Craflmaster  for  assistance  increase 
your  chances  for  success?  Maybe  you  should  invite  prospec- 
tive allies  to  a  Wedding  or  even  a  Dragon  Hatching. 
Remember  to  check  the  Lord  Holders  personality  traits 


first.  It  may  be  critical  to  your  success. 

Numerous  screens  combine  to  create  truly 
unique  and  challenging  game  play.  There's  even  a 
practice  screen  to  sharpen  your  Thread  Fighting 
skills. 

If  you  liked  the  books,  you'll  love  the  game. 
After  aU-,  how  often  do  you  get  the  chance  to  actually 
fly  a  dragon? 

One  to  four  players,  joystick  and  keyboard 
controlled. 


Strategy  Games  for  the  Action-Game  Player 


Learning,  Languages/Programming  Aids,  Home 
Information  Management,  and  Entertainment. 
Examples  are  Dr.  Seiiss'  Word  Factory,  Smurf  Paint 
'N'  Play  Theatre,  Presidential  Campaign,  Electronic 
Flashcnrds,  SmartLogo,  SmartBASIC  11,  Smart- 
Picture  Processor,  SinartWriting  Checker,  SmartFiler, 
SmartShcd,  SupcrCalc,  Dragon's  Lair,  Star  Trek, 
Donkey  Ko>ig,  Mr.  Do's  Castle,  Omega  Race,  Gorf, 
The  Official  Zaxxon,  Rocky  Super  Action  Boxing,  The 
Dukes  ofHazzard,  Password,  jeopardy,  and  Cabbage 
Patch  Kids. 

SpectraVideo  Joins  MSX  Movement 

Besides  the  absence  of  new  home  computers  in 
general,  something  else  missing  from  this  CES 
was  the  expected  Japanese  invasion  of  MSX- 
standard  machines.  What  is  MSX?  It's  a  hardware/ 
software  configuration  developed  by  Microsoft 
which  several  Japanese  companies  have  adopted 
for  their  forthcoming  home  computers.  The  idea 
is  to  introduce  into  the  U.S.  market  a  number  of 
Japanese  computers  using  MSX  as  their  standard. 
The  companies  hope  MSX  will  become  the  stand- 
ard for  home  computers  in  the  same  way  that  the 
MS-DOS  (PC-DOS)  operating  system  seems  to  be 
taking  over  the  business-computer  market.  MSX 
backers  believe  a  home  computer  standard  will 
simplify  choices  for  consumers  and  help  create  a 
pool  of  software  compatible  with  several  different 
machines.  Among  the  Japanese  companies  report- 
edly supporting  MSX  are  Fujitsu,  Hitachi,  Mit- 
subishi, Pioneer,  Soiiy,  and  Yamaha. 

Some  people  were  expecting  a  Japanese  inva- 
sion of  MSX  computers  at  this  CES,  but  it  looks 
like  we'll  have  to  wait  until  the  Summer  CES  in 
Chicago.  The  only  company  exhibiting  an  MSX 
computer  was  SpectraVideo,  which  had  pro- 
totypes of  the  SVI-728  MSX.  Billed  as  "the  first 
American  MSX  computer,"  the  SVI-728  is  de- 
signed around  the  eight-bit  Z80A  CPU  and  con- 
tains 80K  RAM  expandable  to  144K,  32K  ROM 
expandable  to  96K,  MSX  BASIC  in  ROM,  and 
CP/M  capability.  Other  features  include  a  full- 
stroke,  87-key  keyboard  with  numeric  keypad, 
ten  programmable  special  function  keys,  and  a 
topside  cartridge  slot.  SpectraVideo  announced 
no  definite  price  or  release  date. 

The  company  did  confirm  that  its  SV-318 
home  computer,  widely  advertised  since  it  was 
announced  at  the  last  Winter  CES,  will  no  longer 
be  sold  in  the  U.S.  Only  a  few  of  these  computers 
actually  reached  the  marketplace.  A  higher  model, 
the  also-unavailable  SV-328,  has  been  redesigned 
as  the  SVI-328  Mark  II  to  replace  both  models. 
Again,  no  definite  price  or  release  date.  The  Mark 
II  is  similar  to  SpectraVideo's  MSX  computer  but 
has  Microsoft  BASIC  instead  of  MSX  BASIC.  The 
Mark  II  also  has  32  sprites  and  a  three-channel 
sound  chip  with  an  eight-octave  range  and  pro- 
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grammable  sound  envelopes.  Since  the  Mark  II 
does  not  adhere  to  the  MSX  standard,  it  won't  be 
compatible  with  the  SVI-728. 

SpectraVideo  is  offering  the  Mark  II  in  two 
bundled  packages  with  peripherals  and  software: 
the  Family  Pak  and  the  Pro  System, 

The  Family  Pak  ($599)  includes  the  Mark  II 
computer;  the  Single  Slot  Expander  (a  peripheral 
interface);  a  fast  1800-baud  cassette  recorder;  an 
80-column  dot-matrix  printer  with  graphics  ca- 
pability; a  parallel  printer  interface;  two  Spectra- 
Video Quickshot  joysticks;  the  Spectra  Word 
cartridge  (a  word  processor);  the  arcade  game 
Spectrou;  and  another  program  called  Spectra 
Diary. 

The  Pro  System  (no  price  announced)  in- 
cludes the  Mark  II;  a  six-slot  expansion  box  with 
two  S'/i-inch  disk  drives,  disk  controller  card,  80- 
column  video  card,  and  parallel  printer  interface; 
an  80-column  dot-matrix  printer;  a  12-inch  green- 
screen  monitor;  Microsoft  Business  BASIC  on 
disk;  CP/M  2.2  disk;  and  four  programs  from  Per- 
fect Software — Perfect  Writer,  Perfect  Speller,  Perfect 
Filer,  and  Perfect  Calc. 

A  Sleek  Computer  From  Britain 

If  nothing  else,  the  new  Elan  Enterprise  computer 
ought  to  win  a  prize  for  sleek  design.  Elan  Com- 
puters Ltd.,  a  new  British  company,  showed  pro- 
totypes of  the  Enterprise  at  CES.  It  is  enclosed  in 
a  low-profile  black  case  with  black,  red,  green, 
and  blue  keys,  plus  a  built-in  joystick. 

But  most  interesting  are  the  specs.  How  about 
stereo  sound?  The  four-channel,  eight-octave 
sound  chip  is  wired  to  a  stereo  output  port  that 
connects  to  your  sound  system  or  headphones. 
It  also  has  low/high-pass  filtering  and  ring  mod- 
ulation like  the  Commodore  64.  Then  there's  a 
text  mode  which  can  display  up  to  84  columns 
by  56  lines  on  the  screen  at  once — plus  smooth 
scrolling. 

Do  you  need  lots  of  memory?  The  Enterprise 
comes  with  64K  or  128K  of  RAM,  and  Elan  says  a 
sophisticated  bank-selection  system  allows  ex- 
pansion up  to  4000K  (four  megabytes).  The  64K 
model  leaves  58K  free  for  BASIC.  There's  a  built-in 
word  processor,  and  a  level  meter  to  help  you 
adjust  settings  when  loading  cassettes.  Both 
parallel  and  serial  interfaces  are  standard.  For 
educational  applications,  32  Enterprises  can  be 
wired  together  to  talk  to  each  other  and  share 
peripherals. 

Are  you  into  graphics?  The  Enterprise  has  a 
hi-res  mode  of  672  by  512  screen  dots,  more  than 
twice  the  resolution  of  an  Atari  or  Commodore 
64.  Like  the  Atari,  the  Enterprise  has  256  colors, 
but  unlike  the  Atari,  all  256  colors  can  be  displayed 
at  once.  And  the  BASIC  includes  graphics  com- 
mands like  PLOT,  CIRCLE,  PAINT,  DESK, 


Boy,  have  you  taken 
a  wrong  turn.  One  moment 
you're  gathering  treasure 
and  the  next  you're  being 
eyed  like  a  side  of  beef. 

You're  in  the  Gateway 
to  Apshair  The  new  cart- 
ridge version  of  the  Computer  Game  of  the  Year,* 
Temple  of  Apshai" 

Gateway  has  eight  levels.  And  over  400  dark, 
nasty  chambers  to  explore.  And  because  it's  joy- 
stick controlled,  you'll  have  to  move  faster  than  ever. 
But  first  you'll  have  to  consider  your  strategy 

•Game  Manufacturere  AsstKHtion.  IHfll 


Is  it  treasure  you're  idicx':  Ur  giuryr  Vuu'll 
live  longer  if  you're  greedy  but  slaying  mon- 
sters racks  up  a  higher  score. 

The  Apshai  series  is  the  standard  by 
which  all  other  adventure  games  are  judged. 
And  novices  will  not  survive. 

They'll  be  eaten. 
One  player;  Temple  of  Apshai,  disk/cassette; 
Gateway  to  Apshai,  cartridge,  joystick  control. 


SntATEGYCAMlS  FOR  TH^KmH-GUK  PlAYEfL 


PAPER,  INK,  and  PALETTE— plus  turtle  graphics. 
There  are  sound  commands  like  PITCH,  PLAY, 
TUNE,  RELEASE,  BEEP,  BOOM,  and  SPLAT. 
And  how  about  these  examples  of  fascinating 
BASIC  commands:  CAUSE  EXCEPTION,  CHAIN, 
HELP,  IMAGE,  LOOP,  MERGE,  TOGGLE, 
TRACE,  FKEY,  TAPE  SOUND,  CHARSET  FROM, 
CAPTURE,  ECHO,  XOR,  TRUNCATE,  and  ZAP. 

Elan  says  the  Enterprise  will  debut  in  the 
U.K.  this  April,  and  will  be  available  in  the  U.S. 
this  fall.  U.S.  prices  are  expected  to  be  about  $290 
for  64K,  $435  for  128K.  A  dual  microfloppy  disk 
drive  (Sony  3V2-inch  standard)  should  cost  around 
$450. 

Is  it  all  too  good  to  be  true?  So  many  com- 
puters we've  seen  at  previous  CES  shows,  espe- 
cially those  from  start-up  companies,  never  make 
it  on  the  market.  Maybe  Elan — and  its  refreshingly 
different  machine — will  have  better  luck.  © 


COMPUTE! 

The  Resource 


"POWER 

FAILURE 

PROBLEMS' 

BLACKOUTS! 
BROWNOUTS! 
DIPS! 

YOUR 
SOLUTION... 

LINE-SAVER" 


<^' 


I  SAVE  YOUR  DATA  from  power  "blockouts," 
I  "brownouts"  or  line  "dips." 

PROTiCT  YOUR  DATA  from  "transient  vol- 
tagas,  spikes  ond  EMI/RFI  line  noise." 

llNE-SAVER*'«s!onds-by  to  switch  240VA 
1  SO  watts  of  power  to  your  micro-computer.  Its 
heavy  duty  internal  seoled  boftery  provides  up 
to  40  minutes  of  back-up  power,-  more  than 
enough  to  SAVE  your  data  and  f  hut  down  your 
system  if  line  power  does  not  return. 

IINI-SAVER^*  provides  constant  protection 
fbr  your  system  from  domaging  voltage  surges, 
I  splkts  and  conducted  line  noise. 

LINE-SAVERS"  constantly  monitors  the  AC 
I  line  and  itself,  with  o  unique  visual  and  oudible 

three  staged  ANNUNCIATOR  that  provides 
I  you  ot-o-glonce  status. 

LINE-SAVERS"  j^  compact  in  size  and  utilizes 
the  latest  PWM  technology  to  make  it  compotible 
with  virtually  every  microcomputer  system  today. 

I  LINE-SAVERSM  is  low  in  cost . .   $395.00 

Coll  or  write  torfoy  for  free  fiteroture 

AEGIS'^'  ORD»T0OAr 

Power  Csndrtioning  O"'  °*  5""* 

.      .  ^  tell  FrM  Order  Number 

Iqutpment  1-800-524-0400 

In-State  Order  No. 
215-837-0700 


STANDBY 

UNINTERRUPTABLE 

POWER 

SYSTEM 


{  65MRilChR<l.,Dept.'LCP 

!  Belhlehem,  PA  15017  dmlersoem 

INQUIRIES  INVItED 
Add  SIO  DO  lor  shipping  Shondtingi  COD' t odd  S3.Q0 
PA  Re^.  odd  6  %  sol«  idk 


ATTENTION  COMMODORE  64  OWNERS 

LWEIL  BACK  YOU  UP! 


n 


^ft     ^A/j 


.     laKe  comro!  ot  your  i 
NEW  IMPROVED        .r —  -    -  - 

WITH  UNGUARD* 

Package  includes 

1}    Complete  and  thorough  users 

2)  Copy  with  one  or  two  drives 

3)  Investigate  and  back-up  many  "PRO- 
TECTED" disks 

4)  Copy  all  file  types  including  relative 
types 

5)  Edit  and  view  track/block  in  Hex  or 
ASCII  i^ 

6)  Display  full  contents  of  directory  and  '>^ 

7)  Change  program  names,  add,  delete  '^^  ..        "'''a*=  .^f 
fites  with  simple  keystrokes                                  '''tf  Clone  M** 

8)  Easy  disk  Jnltiatization 

9)  Supports  up  to  four  drives 

'UNGUARD  Now  allows  you  to  read,  write  and  verify  bad  sectors  and  errors 
on  your  disk  making  it  easy  to  back-up  most  protected  software. 


$4995   = 


CALL  (201)  838-9027 


Dealers  &  Distrit}utors 
Inquiries  Invited 


micro 


1342  B  Rt.  23 
Butler,  N.J.  07405 


30    COMPtflEl    April  1984 


WEIGHT  CONTROL  PROGRAMS 

Wrtnen  by  a  Registered  Dietitian 

28  DAY  DIETER  ■  THe  Id^al  program  far  controlling 
weight  featuring  menus,  recipes,  and  ingredient  lists  giving 
a  month  of  balanced  dieting.  Recipe  size  adjuster  helps  you 
Teed  the  entire  family.  Calorie  levels  from  120O  to  2400.  User 
friendly.  No  codes.  $49.95 

ZS  DAY  DIABETIC  DIETER  -  Fealures  menus  and 
recipe^  based  on  A.D.A,  exchange  lists  to  help  you  adhere 
to  vour  prescribed  diet.  Included  are  a  rpcipe  si^^  adjusier 
and  ingredient  Hsts  for  covenience.  The  menus  are  high  in 
Rb«r.  low  in  Fat  and  cholesterol  and  very  low  in  refined  sugar 
for  good  health.  $49.95 

FOOD  A  RECIPE  ANALYZER  -  Enter  the  name  of  any 
faod{s)  or  an  >^ntir^  recipe  for  the  arnounl  of  calories,  car- 
bohydrate, protein,  fai,  cholesterol,  sodium  and  food  ex- 
change values.  An  essential  aid  for  those  iniereft^  In  good 
nutrition  or  following  a  therapeutic  diet.  Included  are  a  user 
Friendly  data  base  of  over  1,000  foods  and  a  recipe  size 
adjuster.  S64.95 

PLEASANTLY  PREGNANT  -  Just  enter  the  number  of 
UTEeks  pregnanf  «nd  find  fun  Fuels  about  your  developing 
haby^  normal  physical  changes,  uraming  Signs,  proper  nutri- 
tion advice,  eic.  WRITTEN  BY  AN  OBSTETRICIAN  !  \  \ 

$29.95 

For  Commodore  64/1541  drive,  and  Apple  11  -i-  ,  ]|e 

Dealer  Inquiries  invited 

VISA  and  MASTERCARD  welcomed 

Michigan  residents  add  4% 

To  order,  or  for  more  inJormation,  write  to: 

FtftfUv*  Far« 

P.O.  BoK  6447  Depr.  C 

Grand  l^apids.  Michigan  49506 

(616)  942-4039  A 


The  ULTIMATE  in  COMMODORE  64  Software 


Why  buy  just  1  GAME.., 
buy  an  "ARCADE"!!! 


OVER    20    DIFFERENT  SCREENS 

EACH  WITH  MULTI-LEVEL  DIFFICULTY 
EACH  A  DIFFERENT  CONCEPT 
EACH  A  DIFFERENT  STRATEGY 


UNBELIEVABLY  CHALLENGING. 
INCREDIBLY  ENTERTAINING!! 


$34.95* 


Machine  code's  POWER.., 
BASIC'S  ease 

•  FULL  IMPLEMENTATION  OF 
STANDARD  FORTH 

•  INCLUDES. ..ASSEMBLER, 
SCREEN  EDITOR,  FLOATING 
POINT  INSTRUCTIONS 

BONUS!  MUSIC  PROGRAM  &  GAME 
EXAMPLE  PROVIDED  WITH  FORTH 
SOURCE  CODE 

INCREDIBLY  PRICED  AT    $39.95* 

AS!     is  a  trademark  of  ACCELERATED  SOFTWARE  InL. 

BALLS   and  SPACE  WARS   are  trademarks  pending  of  " 

ACCELERATED  SOFTWARE  INC. 

'U.S.  Suggestsd  ft«taJI  Plica  For  Distolt*V«r«ton. 


IVe  HAVE  achieved  the 
FINAL  FRONTIER!! 


f  3  DIFFERENT  BATTLE  SCENES 

-  BATTLE  IN  DEEP  SPACE 

-  BATTLE  AROUND  PLANETS 

-  BATTLE  IN  THE  DEATH  TUNNEL 

FURIOUS  FULL-SCALE  ACTION 
IN  THE  ARCADE  TRADITION... 

$34.95* 


BLE  FROM  YOUR  LQCAL^BilCeR  OfS^SfflS 

ACCELERATED  SOFTWARE  INC. , 
BOX  129.  STATION  "A",  SCARBOROUGH.  ONTARIO,  CANADA  H1K  589. 

t;  1984  ACCELERATED  SOFTWARE  INC. 


COMPUTE!  Books 


COMPUTE  Is  Reference 
Guide  To 
Commodore  64 
Graphics 

A  complete  tutorial  on 
Commodore  64  graphics. 
Noted  Commodore  author 
John  Heilborn  explains 
how  to  program  sprites, 
multicolored  screens,  ani- 
mation, custom  characters, 
and  more.  Beginners  will 
like  the  step-by-step  in- 
structions and  clear  ex- 
ample programs.  Advanced 
programmers  can  build  up 

their  tool  kit  with  the  character  editors,  sprite  editors,  screen 

design  program,  and  other  useful  utilities. 

2 1 8  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBI^  0-942386-29-9 


VIC 
GAMES 

-^FORKIDS 


VIC  Games  For  Kids 

Contains  30  games  written 
just  for  kids  (although  adults 
will  enjoy  them  too).  This 
book  Is  an  inexpensive 
source  of  educational  soft- 
ware for  children.  The 
games  are  designed  to 
teach  math,  geography, 
history,  and  other  topics. 
Children  learn  while  they're 
having  fun.  They  will  return 
to  these  games  again  and 
again. 


240  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-35-3 


Machine  Language 
For  Beginners 

Much  commerciaf  software 
is  written  in  machine  lan- 
guage because  it's  faster 
and  more  versatile  than 
BASIC.  Machine  Language 
For  Beginners  is  a  step-by- 
step  introduction  to  the 
subtleties  of  machine  code. 
Includes  an  assembler,  a 
disassembler,  and  utilities, 
to  help  beginners  write 
programs  more  quickly  and 
easily.  Covers  many  pop- 
ular home  computers. 

350  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$14.95 

ISBN  0-942386-11-6 


COMPUTE  Is  First 
Boole  Of 
Commodore  64 

An  excellent  resource  for 
users  of  the  64,  with  some- 
thing for  everyone;  BASIC 
programming  techniques, 
a  memory  map,  a  machine 
language  monitor,  and 
information  about  writing 
games  and  using  peripher- 
als. Many  ready-to-type-in 
programs  and  games. 


264  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-20-5 


COMPUTErs  First 
Book  Of 
Commodore  64  Games 

Packed  full  of  games; 
"Snake  Escape,"  "Oil  Ty- 
coon," "Laser  Gunner," 
"Zuiderzee," and  many 
more.  Machine  language 
games  requiring  fast  hands 
and  a  good  eye,  as  well  as 
strategy  games  which  will 
exercise  your  mind.  Intro- 
ductory chapters  and  an- 
notated listings  provide 

^~      .:^v,.  ■--  :,j!,,,,g=  ,3,™=p^  ideas  and  techniques  for 

writing  games.  An  excellent 

introduction  for  64  owners  who  want  to  begin  writing  games. 

217  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

SI  2.95 

ISBN  0-942386-34-5 


COMPUTE!'!  First 
Boole  Of  TI  Games 

Although  this  book  is 
packed  with  ready-to-type- 
/n  games  (29  in  all),  it  is 
more  than  just  a  book  of 
games.  It  is  designed  to 
teach  game  programming 
techniques.  Introductor)' 
chapters  explain  the  special 
features  of  the  TI-99/4  and 
99/4A,  giving  advice  on 
coding  techniques.  Most 
games  include  an  explana- 
;„_^.„ >:-:.-:-_-,  tion  of  how  the  program 

■  '^"'  works.  Contains  mazes, 

chase  games,  old  favorites,  thinking  games,  creative  chal- 
lenges, and  more. 

2 1 1  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

\SBH  0-942386- 1 7-5 


Applcancn  uiHh  Qomw 


COMPUTE  Is  Second 
Book  Of  VIC 

This  is  just  the  book  to 
follow  the  best-selling  First 
Book  of  VIC.  clear  explana- 
tions of  programming 
techniques,  an  extensive 
memory  map,  a  mini  word 
processor,  a  system  for 
creating  sound  effects,  a 
custom  character  maker,  a 
machine  language  assem- 
bler, and  "Gumbail,"an 
extraordinary  all-machine- 
language  game. 


274  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

SI  2.95 

ISBN  0-942386-16-7 


COMMODORE- 


SOUND 

AND 

GRAPHICS 


COMPUTEI's  First 
Book  Of  64  Sound 
And  Graphics 

Clear  explanations  of  the 
64's  sound  and  graphics 
capabilities.  Includes  many 
tutorials  and  example  pro- 
grams: "MusicMaster,"  a 
complete  music  synthe- 
sizer; "High-Resolution 
Sketchpad,"  an  all- 
machine-language  pro- 
gram for  making  computer 
art;  and  "Ultrafont  Character 
--  y  Editor,"  one  of  the  best 

character  editors  available. 
The  appendices  feature 
useful  reference  charts  and  conversion  tables. 

275  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-2 1-3 


COMPUTEI^  Publications  Jnc.® 

One  of  the  ABC  Publishing  Companies  ^^^r 

Post  Office  Box  5406,  Greensboro,  North  Carolina  27403 


How  COMPUTE!  Readers 

Use  Personal  Computers 

In  Their  Businesses 


Bernie  Ghiseiin 


Home  computers  have  their  place  in  business,  too.  In 
our  latest  reader  suroei/,  subscribers  tell  hozu  tlicy  use 
their  computers  to  save  lives,  increase  personal  produc- 
tivity on  the  job,  help  with  farm  chores,  and  more. 

Eight  miles  off  the  coast  of  Texas  a  fire  breaks  out 
on  an  oil  rig.  Bv  2:30  a.m.  workers  have  lost  control 
and  begin  piling  into  standby  boats.  Some  are 
burned.  Others  have  suffered  fractures  and  need 
to  be  lifted  to  a  hospital. 

When  the  call  comes  into  Rockport,  near 
Corpus  Christi,  Jerry  Evans  goes  through  a  well- 
practiced  routine.  He  checks  for  a  weather  brief- 
ing. Checks  a  map  of  the  gulf.  Calls  a  doctor.  Files 
a  flight  plan  with  the  FCC.  He's  ready  to  scramble. 

But  just  before  he  runs  out  the  door,  he 
punches  a  few  keys  on  his  Commodore  64.  Be- 
tween Grand  Island,  Louisiana,  and  Corpus 
Christi  there  might  be  1000  oil  or  gas  platforms.  A 
sequential  file  in  his  disk  drive  gives  him  the  exact 
distance  and  time  to  any  pickup  point. 

Saving  Precious  Time 

As  he  fires  up  the  helicopter,  he  also  switches  the 
LORAN  (Long  Distance  Radio  Navigation),  which 
gives  him  time  and  destination  coordinates.  But 
Evans  doesn't  have  to  wait  for  the  LORAN.  He's 
already  steering  the  course.  Long  hours  pro- 
gramming his  own  computer  have  paid  off.  He 
has  shaved  a  few  precious  minutes  off  an 
emergency  flight.  And  75  percent  of  Evans'  mis- 
sions are  medical  emergencies. 

"My  normal  reaction  time  is  20  minutes  or 
less,"  he  said.  "If  I  already  know  the  coordinates, 
then  1  can  tell  instantly  if  the  LORAN  is  working." 
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Now,  Professional  Helicopters,  Inc.  doesn't 
require  its  pilots  to  be  programmers  and  Evans 
doesn't  have  to  bring  his  own  computer  to  work. 
It  gives  him  a  professional  edge.  "Maybe  I'm  look- 
ing for  a  little  bit  shorter  shortcut.  1  pride  myself 
on  being  a  professional  and  being  prepared,"  he 
said  from  his  home  in  San  Antonio. 

This  is  not  to  suggest  the  business  uses  of  a 
home  computer  are  always  as  dramatic  as  helicop- 
ter rescue  flights  at  sea  in  the  dark  of  night.  But 
telephone  interviews  with  several  dozen  people 
suggest  that  all  kinds  of  COMPUTE!  subscribers  are 
finding  very  creative  business  uses  for  their  home 
computers.  There  are  salesmen  and  accountants, 
engineers  and  professors,  sergeants,  seamen,  and 
comic  book  collectors,  all  of  whom  have  other  uses 
for  a  computer  besides  Star  Raiders  or  teaching 
Johnny  how  to  spell. 

Meat  Packing  And  Hairdressing 

In  Norman,  Oklahoma,  Richard  Adkins,  a  student 
at  Oklahoma  State  University  Technical  Institute, 
has  written  business  software  for  a  meat  packing 
firm.  His  wife,  Tina,  works  full  time  as  a  hair- 
dresser and  uses  a  data  base  management  program 
on  their  VIC-20  to  list  chents,  services,  and  various 
mixtures  for  permanents.  "She's  virtually  the 
breadwinner  right  now,"  said  Adkins. 

In  Garden  City,  New  York,  a  publishing  com- 
pany executive  bought  a  computer  for  his  children, 
l3ut  also  wrote  a  personnel  program  to  keep  track 
of  his  staff,  their  performance,  salary  history,  and 
attendance.  A  systems  analyst  in  Mesa,  Arizona, 
bought  a  home  computer  just  out  of  curiosity.  But 
his  wife  also  uses  it  to  keep  track  of  expenses  in 
her  sideline  businesses — distributing  cosmetics 


Introducing 

the  first  word  processor 

made  especially  for  the  home 

HOMEWORIT 

JL  JL       The  Personal  Word  Processor       JL^ 


TYPING  AREA 


VISUAL 
MENU 


1.  A  POWERFUL  WORD  PROCESSOR 

*  helps  you  be  the  best  writer  you  can  be 

*  at  a  fraction  of  the  price  of  most  others 

2.  EASY  TO  LEARN 

*  audio  cassette  guide  to  the  basics 

*  instructions  written  in  plain  English 

3.  EASY  TO  USE 

*  pictures  illustrate  your  choices 


HomeWord  makes  writing  easy. 

Changing  what  you  write  is  even 
easier.  Since  the  commands  are 
illustrated  right  on  the  screen,  you 
don't  have  to  memorize  any 
complex  codes. 

Yet  HomeWord's  simplicity  is 
deceptive.  Although  easier  to  use, 
it  offers  you  the  power  of  more 
expensive  word  processors! 
Yes,  HomeWord  is  the  best  buy 
for  your  money.  .  .and  the  best 
money  can  buyt  HomeWord  is 
available  for  only  $69.95  on  the 
Apple  n,  11+ ,  lie  and  Commodore 
64.  Coming  soon  on  the  Atari! 

TM  designales  a  Iradomark  of  Sierra  On-Liw.  Inc-  <   1993  Sierra  On-Une.  Inc. 


add,     move    and    erase 
blocks  of  text 
automatic  outline  indents 
underline,  boldface,  upper 
and  lower  case 
reliable     storage    and 
retrieval  of  all  your  files 


Features  Include 

"  automatic  page  numbering 
''   print     documents     of 

unlimited  length 
I"   universal     search     and 

replace 
"   easy   view  of  movement 

through  your  files 


ENTIRE  PAGE 
DISPIJ^Y 


N'LINE 


TM 


Sierra  On-Lioc  Building  •  Coarsegold,  CA  93614  •  (209)  683-6SSS 


What  should  you  look  for  in  personal 


Before  you  go  looking  for  personal  computer 
software,  you  should  know  what  personal  computer 
software  looks  like. 

(\bu're  not  alone  if  you  don't  already  know  that 
software  programs  come  in  a  package.) 

Programs  are  "pre-recorded"  on  cartridges,  tapes 
or  diskettes.  And,  although  you  can't  tell  by  looking 
at  these  cartridges,  tapes  or  diskettes,  the  programs 
on  them  can  be  very  different. 


What  you  put  in 
is  what  you  get  out. 

What  happens  when  you  play  a  high-quality 
tape  on  a  high-quality  recorderr'  Superior  sound. 

This  analogy  can  also  hold  true  with  software. 
The  better  the  program  quality,  the  better  the  result 
—  be  it  improved  productivity  or  creativity. 

IBM  Personal  Computer  Software  is  both  tested 
and  approved  by  IBM.  And  these  programs  are 
designed  to  take  advantage  of  an  IBM  personal 
computer's  many  advanced  hardware  features. 


What  the  value  is. 


What  are  improved  math  skills  worth?  More 
efficient  inventory  control?  Faster  communications? 
What  is  accomplishment  worth? 

Any  way  you  look  at  it,  the  value  of  personal 
computer  software  is  the  value  of  doing  your  best. 


What  compatibility  means. 

Many  of  the  same  software  programs  that  run 
on  the  IBM  Personal  Computer  you  use  at  work  will 
run  on  other  IBM  personal  computers  you  use  in 
other  places.  So  you  can,  for  example,  continue  in 
your  family  room  what  you  started  in  the  classroom  or 
boardroom,  (Or  the  other  way  around.) 


The  Little  Tmitip  charatiLT  liLL-nstii  hv  Bubbles.  Int..,  -S.A. 


computer  software? 


Dial  up  information 
services  with  a  single 
keystroke.  Send  or  receive 
mail . . .  stocl<  and  weather  reports 
. . .  charts  or  spreadsheets . 
automatically  over  standard 
phone  lines. 


Whats  available. 

One  software  program  can't  satisfy  everyone's 
computing  needs.  That's  why  IBM  has  such  an 
extensive  library  of  programs.  %u'll  find  a  series  for 
productivity,  education,  business,  entertainment, 
lifestyle,  programming  or  communications. 

With  IBM  Personal  Computer  Software,  you 
have  a  choice. 

In  word  processing,  for  example,  you  may  want 
a  simple  program  for  memo  writing.  'V&u  11  find  that 
program  in  the  IBM  software  library.  If  you  want  a 
sophisticated  program  for  report  writing,  you'll  find 
that  in  the  library  as  well. 


Whafs  inside. 


Sometimes  learning  a  program  is  easy. 
Sometimes  it's  not.  That's  why  inside  every  IBM 
software  package  are  instructions  that  are  clear  and 
understandable. 


What  you  can  do  right  now. 

There's-  more  to  look  for  in  personal  computer 
software  than  what  you've  read  here.  To  find  our 
more,  look  no  further  than  your  authorized  IBM 
Personal  Computer  dealer.  For  one  near  you,  call 
800-447-4700.  In  Alaska  or  Hawaii,  800-447-0890. 


Personal  Computer  Softivare 


and  selling  flower  arrangements.  And  in  Brook- 
lyn, New  York,  Jim  McQuade,  an  accountant  in 
private  practice  who's  been  hacking  with  com- 
puters for  20  years,  is  very  up-to-date.  On  his 
home  computer  the  various  packages — such  as 
accounts  payable  and  accounts  receivable — are  all 
integrated;  that  is,  "they  all  feed  into  the  general 
ledger  without  having  to  go  through  manual 
entries." 

Taking  The  Computer  To  Work 

In  several  respects,  though,  Evans  is  typical  of 
the  home  computer  user  who  works  for  a  large 
company,  perhaps  the  military,  that  cannot  cus- 
tomize programs  for  each  individual  or  manager. 
This  kind  of  user  takes  pride  in  his  work,  sees  a 
better  way  to  do  things  or  make  money,  and  enjoys 
programming,  regardless  of  previous  experience. 
Like  Evans,  David  Loomis  takes  his  computer 
to  work.  A  master  sergeant  with  22  years  in  the 
Air  Force,  Loomis  can't  wait  for  the  mainframe  at 
Pease  Air  Force  Base,  New  Hampshire,  to  do  his 
work.  Among  other  things,  Loomis  must  keep 
track  of  retraining  in  nuclear  safety  for  80  to  100 
airmen  each  year.  "It's  not  popular  training.  It's 
like  flu  shots,"  he  said  from  his  home  in  Somers- 
worth.  "They're  supposed  to  help  you.  But  that 
doesn't  mean  you  have  to  like  it." 

Decentralizing  The  Paperwork 

As  it  happens,  the  Air  Force  has  no  system  to 
keep  Loomis  abreast  of  who  has  undergone  which 
stage  of  training.  "Everything  used  to  be  done  by 
a  central  computer  some  place  on  the  base.  More 
and  more  they're  realizing  this  is  not  the  most 
modern  way  of  doing  things,"  he  added.  "But 
the  Air  Force  does  not  want  to  decentralize  too 
much." 

So  Loomis  trots  out  his  own  computer  and 
does  it  himself.  "The  work  I  do  is  cut  out  for  my 
use  and  comes  on  a  whistle,"  he  said.  "Otherwise, 
it  would  take  me  a  couple  of  months  to  find  out 
where  someone  is  and  when  they  would  be  avail- 
able for  retraining." 

A  IVIachine  For  Repetitious  Work 

Since  the  Air  Force  is  obviously  not  paying  Loomis 
for  this  work,  why  does  he  agonize?  "I  spent  a 
year  at  a  remote  island  in  the  Aleutians  doing 
punch  cards  to  put  into  a  busy  file  system."  He 
was  listing  test  equipment  on  5x8  cards.  "About 
98  percent  of  the  work  I  did  on  that  program  could 
have  been  done  in  a  tenth  of  the  time  using  a 
microcomputer,"  he  said.  "I  hate  dull,  boring, 
repetitious  work  and  If  I  can  get  a  machine  to  do 
it,  I  will." 

Again  and  again  It's  the  same  story.  Time. 
Money.  Convenience.  And  the  use  of  a  home 
computer  for  business  tasks  has  led  a  few  COM- 
PUTE! subscribers  into  the  world  of  telecommuting: 
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They  don't  have  to  go  to  the  office. 

Of  course,  not  all  work  can  be  done  at  home. 
Steel  must  be  forged  in  blast  furnaces.  Autos  come 
off  assembly  lines.  But  the  U.S.  economy  is  chang- 
ing, depending  less  on  heavy  industry  and  more 
on  information.  John  Naisbitt,  author  of  Mega- 
trends, estimates  that  around  60  percent  of  Ameri- 
can jobs  now  involve  handling  Information. 

Where  information  is  the  product,  telecom- 
muting comes  into  its  own.  And  the  father  of  tele- 
commuting, the  microcomputer.  Is  growing 
smarter  and  cheaper.  Another  boost  for  telecom- 
muting has  been  the  rapid  growth  of  organized, 
easy-to-access  data  bases,  the  semifinished  mate- 
rials against  which  many  telecommuters  apply 
their  computers  and  energy. 

"I've  probably  tripled  my  business  in  a  year," 
said  Charlie  Seyffer  of  Albany,  New  York,  a  sales 
engineer  for  Eastern  Heating  and  Cooling.  Seyffer's 
task  is  to  design  heating  and  cooling  systems. 
With  a  modem  attached  to  a  Commodore  64,  he 
taps  into  computers  at  large  firms  like  Carrier  or 
York.  He  feeds  in  the  dimensions — square  foot- 
age, types  of  windows,  perhaps  15  inputs  for 
homes,  100  for  office  buildings.  And  then  Seyffer 
gets  a  full  load  analysis  on  his  terminal:  the 
cheapest  fuel,  all  the  costs. 

But  it  doesn't  stop  there.  Seyffer  and  his  fel- 
low salesmen  also  manage  their  inventories  and 
track  each  job  much  more  closely,  the  costs,  taxes, 
profits.  "We  have  a  much  more  in-depth  look  at 
each  job,"  he  said.  "We're  even  writing  some  of 
our  own  programs  now." 

The  use  by  salesmen  of  computers  at  home 
has  been  so  successful  the  company  is  paying  for 
them.  "We're  knocking  the  heck  out  of  the  other 
businesses  in  this  area,"  said  Seyffer. 

Customized  Farming  Software 

On  the  farm,  computers  are  keeping  track  of  hogs 
and  soybeans.  According  to  a  recent  study  by 
Frost  &  Sullivan,  a  marketing  research  firm, 
farmers  will  spend  S428  million  on  microcomput- 
ers and  data  processing  between  1983  and  1987. 
More  than  94,000  systems  will  be  purchased  dur- 
ing this  period,  with  unit  sales  increasing  an  aver- 
age of  35  percent  annually  during  the  four  years. 

In  Arlington,  Texas,  Bill  Asher  set  out  on  his 
own,  selling  agricultural  products  during  a  reces- 
sion year.  "It's  been  sort  of  a  tough  year  on  all  of 
us,"  he  said.  "Some  30  percent  of  the  acreage  has 
been  knocked  out.  This  killed  chemical  sales."  To 
diversify,  Asher  is  writing  agriculture-related 
programs  he  hopes  to  sell.  For  example,  nutri- 
tional and  feed  conversion  programs  are  needed 
in  swine  operations.  "My  program  lets  you  keep 
a  herd  record  on  the  rate  of  gain,"  he  said. 

Stan  Dibbet  owns  a  240-acre  farm  near 
Maurice,  Iowa.  He  grows  mainly  corn  and  soy- 
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Whether  you're  cleaning  up  at  home  or  around  the  of- 
fice, there's  NOW  a  COMPLETE  line  of  money  manage- 
ment software  that  will  attend  to  all  the  details,  while 
letting  you  see  the  whole  financial  picture.  The  Com- 
plete Personal  Accountant's  exclusive  combination  of 
easy  to  use  programs  give  the  wise  Investor  a  quick  and 
dependable  way  to  control  finances  and  plan  for  the 
future. 


FINANCE  1  gets  you  organized  with  a  standard  chart  of 
accounts  adaptable  to  any  situation.  The  Checkbook 
Maintenance  program  with  lull  screen  edftrngand  special 
'Help'  commands  let  you  find  any  check  by  any  lleid. 
You  can  tlag  tax  deductibles,  reconcile  your  bank 
statement,  print  checks  and  more, 

Pil^ANCE  2  teiis  you  where  your  money  Is, 
where  it's  going  and  where  It's  coming 
from.  The  Detail  and  Summary  Budget  pro- 
grams show  exactly  where  you're  spending 
your  money.  The  lncome(Expense  and  Net 
Worth  programs  provide  professional- 
looking  statements  that  can  be  printed 
with  any  80  column  printer. 

FINANCE  3  separates  the  CPA  from  the 
competition.  No  other  finance  package  for 
the  home  or  small  business  gives  you  Ap- 
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polntments  and  Payments  Calendars  lor  scheduling  your  time  and  money. 
Few  packages  offer  the  ability  to  chart  each  account  In  color.  And  only  the 
CPA  Includes  a  mailing  list  with  a  1200  name  capacity*.  Ail  reports  are  print- 
able with  an  80  column  printer. 

FINANCE  4  lets  you  determine  the  "what  it's"  of  your  financial  future.  With 
this  easy  to  learn  spreadsheet  you'll  spend  more  time  making  decisions  and 
less  lime  crunching  numbers. 

FINANCE  5,  The  Tax  IHandler'',  uses  your  files  from  Finance  1, 2  and  4  to  com- 
plete your  taxes  In  a  traction  of  the  normal  time. 

The  Complete  Personal  Accountant"  line  of  money  manage- 
ment software  is  simply  the  most  comprehensive,  easy  to 
use  financial  software  available  anywhere. 
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Available  tar  Atari  4Q0f300n200"',  Commodore  64™, 
IBM  PC-  TRS  80  Colof  and  Vic  20" 

Prices  subiect  to  change  without  notice.  Add  S3,00 
lor  postage  and  handling. 

Ask  you  local  deal  to  see  a  running  demo  or  call 
1.800-334-SOFT  to  order  dlreet. 

'Varies  according  to  computer. 
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beans,  sometimes  breeds  livestock,  and  currently 
has  some  hogs.  To  help  keep  his  farming  opera- 
tions competihve,  Dibbet  bought  a  Commodore  64. 

Each  year  a  consultant  from  the  Northwest 
Iowa  Farm  Business  Association  drops  by  to  help 
Dibbet  with  his  books  and  do  his  taxes.  Dibbet 
gets  a  tax  return  from  this,  but  the  service  costs 
him  $400  each  year.  However,  now  that  Dibbet 
has  software  customized  for  farm  business,  he 
can  program  his  own  inventory,  depreciation, 
and  figure  his  own  taxes.  He's  not  only  saved 
$400,  he  says,  he's  also  having  fun  learning  about 
computers,  "just  [enjoying]  the  fact  that  you  can 
take  a  relatively  dumb  machine  and  make  it  do 
what  you  want  it  to  do." 

Unlike  people  who  buy  a  home  computer  for 
games  or  education,  people  who  use  their  micro- 
computers in  their  work  often  watch  the  bottom 
line.  By  and  large,  they  seek  a  return  on  their 
investment,  either  in  hard  cash,  greater  efficiency 
on  the  job,  or  both. 

Accountants,  bookkeepers,  and  financial  and 
stock  market  wizards  are  especially  interested  in 
return  on  investment.  Andy  Larson  of  Jupiter, 
Florida,  first  bought  a  VIC-20,  then  a  Commodore 
64,  mainly  for  his  son.  But  Larson  tracks  about  ten 
stocks  and  has  put  his  entire  system  on  a  spread- 
sheet "primarily  to  tell  me  when  to  sell  and  buy," 
he  said.  He  tracks  the  stock's  moving  average  over 
a  three-week  period.  He  watches  the  cash  posi- 
tions of  mutual  funds,  the  advance-decline  line, 
the  Standard  &  Poor  500,  and  other  barometers. 

Stock  Profits  Pay  For  Computer 

James  Welker,  a  professor  of  finance  and  manage- 
ment information  systems  at  the  Indiana  campus 
of  the  University  of  Pennsylvania,  goes  even 
deeper.  Aside  from  his  teaching,  Welker  does 
private  accounting  for  small  businesses,  some 
financial  consulting  and  systems  design.  One  of 
his  more  creative  projects  last  year  was  to  compile 
evidence  needed  in  a  court  case  on  mail  fraud.  A 
dealer  had  allegedly  made  unauthorized  trades  in 
options  on  IBM  stock  in  "discretionary"  accounts. 
There  were  six  indictments. 

Since  the  dealer  had  never  matched  the 
trades,  someone  needed  to  pore  through  the  books 
and  match  each  buy  and  sell.  That's  when  they 
called  on  Welker.  "You  have  to  go  through,  find 
out  when  he  opened  a  position  and  when  he 
covered  it.  It  took  about  three  months.  I  worked 
from  copies  of  brokerage  statements. 

"I  had  to  design  a  program  especially  for  the 
option  transactions,  compute  the  profit;  those 
over  20  percent,  those  over  60  percent,  and  so 
on,"  he  said.  "It  took  a  little  while." 

Computers  can  trace  people  as  easily  as  they 
trace  money.  And  increasingly,  managers,  super- 
visors, or  administrators  are  using  home  com- 
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puters  to  do  personnel  work.  There  is  a  bundle  of 
personnel  software  on  the  market. 

Nearly  everyone  interviewed  found  uses  for 
word  processing.  In  the  last  few  months,  though, 
perhaps  no  one  has  had  greater  use  for  it  than 
Richard  Carls  of  Racine,  Wisconsin.  A  partner  in 
an  insurance  agency,  Carls  also  prepares  taxes  for 
about  950  clients.  He's  been  running  his  own  show 
for  about  25  years,  and  the  tax  business  has  gotten 
so  large  Carls'  daughter  pitches  in  to  help.  Using 
a  service  bureau,  Carls  became  discouraged  after 
his  first  attempt  to  computerize  and  went  back  to 
figuring  all  those  taxes  by  hand.  But  last  October 
he  bought  a  64,  a  printer,  and  a  disk  drive,  and 
began  building  a  data  file  on  all  his  clients. 

"We  will  start  on  a  limited  scale  on  the  com- 
puter at  first,  just  to  get  our  feet  wet.  No  business 
returns  at  first.  There  are  too  many  carry-over 
figures  from  one  schedule  to  another,  too  much 
chance  of  missing  some  information." 

And  how  does  Carls  stay  in  touch  with  those 
950  clients?  Word  processing.  There  are  11  differ- 
ent tax  classifications  and  11  different  letters.  For 
example,  Carls'  letter  to  a  person  who  is  single, 
does  not  own  a  home,  and  does  not  itemize  de- 
ductions will  be  different  from  his  letter  to  a  couple 
making  mortgage  payments  and  itemizing.  And 
so  on. 

Mailing  Lists  In  22  Categories 

If  he  chooses,  Carls  can  segregate  his  mailing  list 
by  any  of  22  categories,  for  example,  by  phone 
exchange,  by  zip  code,  month  of  birth,  social  se- 
curity number,  and  so  on. 

Here  again  is  a  man  looking  at  the  bottom 
line  as  he  plugs  away  at  his  home  computer.  But 
there  is  something  else  on  that  bottom  line  besides 
money,  profits,  efficiency,  and  clean  data  guiding 
logical  decisions. 

Regardless  of  age,  geographical  location,  or 
profession,  there  is  also  plain,  old-fashioned 
enjoyment. 

Take  D.  Anthony  Valentine,  an  engineer  for 
TVA  and  in  the  naval  reserve  for  Uncle  Sam. 
Lieutenant  Commander  Valentine  collects  all 
kinds  of  books,  including  comic  books.  He  has  so 
many  that  his  hobby  is  almost  becoming  a  sideline 
business. 

Keeping  Track  Of  Collections 

"When  you  get  about  10,000  comic  books,  they're 
a  little  hard  to  keep  track  of,"  he  said.  Valentine 
has  them  packed  in  plastic  bags,  lined  along  four 
shelves  15  feet  wide.  A  few  date  back  to  the  40s, 
but  most  are  from  the  60s  and  70s. 

"I  enjoy  them,  for  one  thing.  I  like  the  art 
work.  And  I've  been  collecting  for  quite  a  while, 
for  speculation.  The  value  goes  up  and  down." 

Valentine  paid  12  cents  for  the  first  issue  of 
Conan  and  today  the  issue  sells  for  about  $65.  But 
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Okay,  boss,  now  what  do  we  do?  Research  &  Development  is  work- 
ing 'round  the  clock  coming  up  with  new  products,  the  warehouse 
is  overflowing,  the  advertising  agency  wants  more  money,  your 
customers  are  fickle,  and  the  competition  just  slashed  their  prices. 
We're  all  waiting  for  your  decision. 

Put  yourself  at  the  helm  of  this  enterprising  new  software  company 
Every  major  decision  is  in  your  hands.  Use  your  logic  and  intuition  to 
spot  market  trends.  Keep  a  close  eye  in  your  balance  sheet.  Get  a 
grip  on  your  company,  a  leg  up  on  your  competition,  and  a  strangle- 
hold on  the  market.  Do  you  have  what  it  takes  to  be  King  of  Silicon 
Valley?  Or  will  you  end  up  selling  apples  on  skid  row? 

Intense  strategic  challenge  combined  with  a  real  education  in  the 
workings  of  big  business  make  In  The  Chips  one  game  anyone  can 
profit  from. 

IN  THE  CHIPS.  Concept  Education  for  the  VIC-20, 
Commodore  64,  IBM  PC  and  PCjr. 
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his  prize  is  the  first  issue  o^ Fantastic  Four,  a  Marvel 
Publication  which  came  out  in  1962.  Valentine 
paid  five  cents  for  the  comic  at  a  flea  market.  The 
catalogue  value  is  now  between  $900  and  $1000. 
"That's  the  one  I  keep  in  my  safe  deposit  box," 
he  said. 

To  cope  with  Coiian,  The  Fantastic  Four,  the 
science  fiction,  the  hardbacks,  the  paperbacks, 
the  coins  and  stamps  and  what-all,  Valentine 
realizes,  "They  need  to  be  catalogued.  I'm  trying 
to  come  up  with  a  program  to  catalogue  all  that." 

For  Valentine,  the  fun  far  outweighs  the 
profits. 

"I  Just  Enjoy  The  Thing" 

Late  one  night  last  October,  Jerry  Evans  was  al- 
ready airborne  on  a  routine  flight  when  the  radio 
alerted  him.  Two  drilling  platforms  joined  by  a 
catwalk  were  in  trouble.  "They  were  both  ablaze 
when  we  got  there,"  he  said.  "We  carried  83 
people  to  the  beach.  No  one  was  injured." 

In  this  case,  Evans'  flight  navigation  program 
wouldn't  have  done  any  good  because  his  com- 
puter is  not  on  the  helicopter  and  the  LORAN 
was  doing  its  job.  In  other  words,  there  will  not 
always  be  a  payoff  for  his  long  hours  programming 
his  Commodore. 

"But  it  doesn't  matter  if  it  pays  or  not,"  said 
Evans  (and  many  others  interviewed).  "I  just 
enjoy  the  thing." 


Commodore®  owners: 
THE  FUTURE  IS  HERE 
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Will  your  printer  Interface  pass  the  Commodore'  printer  test?  We  don't  fh/nk  so.'.'  Ours  will. 

The  CONNECTION™  is  truly  the  ultimate  parallel  interface  tor  the  VIC20™/COMMODORE  64™  This  fully  intelligent 

interface  plugs  into  the  disk  (serial)  socket  just  like  the  standard  printer  and  you  can  easily  assign  it  any  device 

number.  It  will  provide  virtually  TOTAL  EMULATION  of  the  Commodore*  printer  including  all  standard  graphic 

characters  (normal  or  inverse),  column  tabbing,  dot  tabbing,  graphic  repeat,  dot  addressable  graphics,  cursor 

up/dovi/n  mode,  and  more.  It  responds  to  all  of  the  standard  commands  (PRINT  #.  OPEN,  CLOSE,  etc)  to 

insure  software  designed  lor  the  Commodore*  printer  v^ill  operate  with  the  CONNECTIONT^'^.  Use  it  in  ttie 

TOTAL  TEXT  MODE,  or  purchase  our  Universal'  CONNECTION  thai  works  with  virtually  EVERY  DAISY 

WHEEL  OR  MATRIX  PRINTER  with  standard  Centronics  Parallel  configuration.  To  take  tuli  advantage  of 

your  printer's  special  features,  please  specify  the  printer  type.  Available  for  STAR  fvllCRONICS,  BX80, 

EPSON,  OKI,  NEC,  PROWRITER,  BANANA,  SEIKOSHA.  RITEfi^AN,  GEIvllNllOX  and  others, 

ONLY  $119.00  Complete.  (Additional  ROMs  are  available  if  you  should  ever  change  printers). 

THE  CONNECTION  PROVIDES: 

1)  A  2K  Printer  buffer. 

2)  Full  LEO  Status  indicators. 

3)  Complete  Built  in  self  test. 

4)  Printer  reset  switch. 

5)  Adds  Skip  over  pert,  margin  set,  programmable  line  length,  program 
list  format  commands  to  your  printer. 

6)  No  need  for  extra  cost,  special  tape  loader  for  graphics. 

7)  All  features  easily  accessed  from  software. 

8)  ASCII  conversion,  TOTAL  TEXT,  EMULATE,  and  TRANSPARENT  Modes. 

'Note:  Only  the  Universal  CONMECTtON  will  not  provide  100%  Commadare  graphice. 
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DON'T  LET  SPIKE  BITE  YOUR  BYTES  AND  BITS 

Dymarc's  new  Clipper  keeps  your  computer  from  going  to  the  dogs.  At  a 
price  that  won't  cost  you  a  lot  of  bytes  and  bits. 

Dymarc,  the  people  who  brought  you  the  Clipstrip  and  ClipCube, 
now  bring  you  the  new  (clipper  with  advanced  power  protection  for  your 
computer.  Like  all  their  products,  the  new  Dymarc  Clipper  has  high 
quality  circuit  designs  to  stop  harmful  surges  and  spikes. 

With  this  innovative,  advanced  protection,  surges  and  spikes  are 
prevented  from  disrupting  important  programs  or  destroying  delicate 
computer  circuits. 

Protect  your  computer  investment  now!  Insist  on  the  Clipper  to  put 
a  leash  on  Spike  before  he  takes  a  byte  out  of  youi-  computer 

See  yoiu'  local  computer  dealer  today 

For  the  Dymarc  Dealer  nearest  you, 
call  toll-free:  800/638-9098 

dVmarc 
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Apple's  Macintosh 

Unveiled 


Fred  D'Ignazto.  Associate  Editor 


Fred  D'Igtmzio  was  there  zvhen  Apple's  new  Macintosh 
computer  introduced  itself  to  the  ivorld. 

The  Apple  Macintosh  had  its  coming-out  party  at 
the  monthly  meeting  of  the  Boston  Computer 
Society  on  Monday  evening,  Januar}'  30. 

The  atmosphere  was  a  cross  between  a  foot- 
ball pep  rally  and  a  gala  rock  concert.  People 
jammed  into  the  elegant  John  Hancock  Hall  and 
filled  it  to  the  chandeliers.  Everyone  was  talking 
loudly  and  pointing  up  at  the  stage. 

On  the  stage  was  a  dark  brown  podium  and 
a  table  with  a  fabric  bag  on  top. 

High-Tech  Rock  Video 

The  lights  dimmed.  Huge  speakers  on  the  stage 
blasted  the  audience  with  a  hard,  driving  rock 
beat.  The  audience  began  clapping  to  the  beat. 

Two  giant  video  screens  above  the  stage  lit 
up,  showing  pictures  of  men,  women,  kids,  old 
people,  young  people,  black,  and  white  people 
using  Apple's  new  Macintosh  computer.  The 
pictures  appeared  on  the  screen,  one  after  another, 
accompanied  by  the  theme  from  Flashdance. 

The  music  stopped.  The  clapping  grew 
louder.  Steve  Jobs,  the  inventor  of  the  Apple  com- 
puter and  the  project  manager  of  the  Macintosh, 
climbed  onto  the  stage,  smiling  and  waving. 
People  began  cheering.  The  noise  was  deafening. 

And  Now  A  Word  From  Mac 

"The  Macintosh  is  the  third  milestone  in  the  per- 
sonal computing  revolution,"  Jobs  said,  as  he 
walked  over  to  the  table  at  the  center  of  the  stage. 
"First  came  the  Apple  II  in  1977."  An  Apple  II 
appeared  on  the  giant  screen  overhead. 

"Next  came  the  IBM  PC  in  1981."  A  PC  ap- 
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peared  on  the  video  screen.  The  audience  began 
laughing.  The  image  of  the  PC  on  the  screen  was 
out  of  focus  and  almost  unrecognizable. 

"And  now,  in  1984,"  Jobs  said,  as  he  reached 
the  table  and  put  his  hands  on  the  box,  "we  have 
the  Macintosh,  the  third  milestone  and  definitely 
the  greatest.  It  is  so  great  it  is  insanely  great." 
People  laughed.  The  words  "INSANELY  GREAT" 
appeared  in  giant  letters  over  Jobs'  head. 

"This  machine  eats  8088s  for  breakfast,"  Jobs 
continued.  "Its  Motorola  68000  cranks  along  at  8 
megahertz  and  processes  over  a  million  instruc- 
tions a  second.  It  has  four  musical  voices  and  a 
speech  synthesizer  built-in.  Its  screen  has  twice 
the  dots  of  an  Apple  II  or  a  PC.  Yet  the  whole 
computer  weighs  only  a  third  of  an  IBM  box. 

"Now  it's  time  to  meet  Mac  in  person." 

With  a  theatrical  flourish.  Jobs  unzipped  the 
fabric  case  and  lifted  the  Macintosh  out  of  the 
bag.  An  instant  later  he  had  connected  the  power 
cord,  the  keyboard,  and  the  mouse. 

He  switched  on  the  computer.  The  screen 
over  Jobs'  head  turned  sky  blue.  "All  the  images 
you  see,"  he  said,  "are  generated  by  the  Mac." 

Jobs  looked  at  the  blank  screen.  "Ah,  yes," 
he  said.  "We  need  a  disk."  He  reached  in  his  shirt 
pocket  and  pulled  a  tiny  3'/2-inch  disk  out  and 
waved  it  at  the  audience. 

Jobs  inserted  the  disk  in  the  computer.  The 
letters  M-A-C-I-N-T-O-S-H  marched, 
one  by  one,  across  the  Mac's  screen  and  across 
the  giant  screen  above  the  stage.  The  letters 
marched  in  time  to  the  theme  from  Chariots  of  Fire 
that  blared  from  the  stage's  gigantic  speakers. 

"And  now,"  Steve  said,  "a  word  from  Mac." 
He  gestured  to  the  computer. 

Mac  came  suddenly  to  life.  "Thank  you. 
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MovieMaker"  brings  the  art  of  computer  animation  to  your  Atari 
Home  Computer*  And  turns  you  into  the  director.  No 
programming  is  necessary,  just  imagination,  flair  and  a  desire  to 
experiment.  MovieMaker "  is  a  pu-.<.  arfui,  innovativu  tool  that  ists 
you  devise  tht  action,  -^qi  thi,  scene,  crcaiu  the  octor-  i-...d  rtage 
ihe  action.  The  '  Coinpose    mode  lets  /o  j  drav.  characiers  and 
background,  with  cj  special  "Mirror  '  functio.i  for  quick  and  easy 
duplication  of  shapes.  The  "Toom"  lets  you  add  incredible  detail 
for  astounding  realism.  When  you  "Record,"  you  film  and  edit  up 
to  300  frames  of  continuous  action,  controlling  speed,  sequence, 
colors,  camera  angles  ond  layersof  lound.  And  the  'Smooth' 
function  eliminates  all  flicker.  The  results  are  so  professional,  you'll 
want  to  film  one  dream  after  another.  And  you  con,  without  ever 
leoving  your  keyboard.  That's  the  reason  why  MovieMaker'  ir, 
the  best  selling  software  from  Creative  Pastime  '. 


MovieMaker"  is  □  Creative  Pnstime 
Reston  Software" 
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Coming  soon  for  Apple,"  IBA*  PC. 

For  the  Atari  800/1200'-  Cornpufer 

Atari  h  a  registered  trademark  o*  Atan,  Ini. 
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Steve,"  it  said.  Its  voice  was  mechanical  and 
computer-like,  but  it  was  easy  to  understand  and 
strangely  imbued  with  personality. 

Mac  gave  a  quick,  crisp  introduction  to  itself. 
It  showed  the  audience  how  to  access  files  and 
how  to  use  its  MncWritc  and  MncPaint  programs. 
Then  it  gave  a  dazzling  graphics  display.  It 
finished  its  performance  with  words  of  advice: 
"Never  trust  a  computer  you  can't  lift." 

"And  now/'  said  Mac,  when  the  audience 
finished  clapping,  "back  to  Steve." 

The  Second  Desktop  Appliance 

Jobs  then  spoke  about  the  potential  market  for 
the  new  computer.  "The  Mac  is  a  desk  appliance," 
he  said,  "the  first  since  the  telephone. 

"Up  until  now  computers  have  been  like 
telegraphs.  Over  a  century  ago,  when  the  tele- 
graph was  invented,  people  predicted  the  day 
when  telegraph  terminals  would  be  on  everyone's 
desk.  But  telegraphs  were  too  difficult  to  use. 

"Then  the  telephone  was  invented.  It  was 
easy  to  use  so  everyone  could  use  it.  It  brought 
people  in  touch  with  other  people  so  it  was  useful 
to  everyone.  Soon  everyone  was  using  the  tele- 
phone and  the  telegraph  virtually  disappeared. 

"The  same  thing  will  happen  with  personal 
computers.  Only  a  fraction  of  the  235  million 
people  in  this  country  can  use  personal  com- 
puters. But  the  Mac  is  different.  Like  the  tele- 
phone, it  is  a  desk  appliance.  It  is  the  computer 
for  the  rest  of  us." 

A  Means  To  An  End 

Earlier  in  the  evening,  at  the  press  reception,  I 
had  been  talking  with  Mike  Murray,  marketing 
manager  for  the  Macintosh.  Like  Jobs,  Murray 
called  the  Macintosh  an  appliance.  "I  looked  up 
appliance  in  the  dictionary,"  Murray  said,  "and  it 
said  that  an  appliance  was  'a  means  to  an  end.' 
That's  the  Mac.  It's  a  means  to  an  end." 

That  night,  filled  with  the  thrill  of  the  occa- 
sion, I  just  nodded  at  Mike  and  grinned.  "A  means 
to  an  end,"  I  thought.  "That's  neat." 

At  that  time,  it  looked  to  me  that  Apple  had 
solved  the  problem  of  making  computers  useful 
and  attractive  to  everybody.  In  the  Mac  they  had 
created  the  first  mass-market  computer 
appliance. 

The  following  morning  I  returned  home  to 
Roanoke,  That  afternoon  I  looked  up  appliance  in 
my  own  dictionary.  My  dictionary  defined 
appliance  as  "a  machine  designed  for  a  particular 
use." 

All  of  a  sudden  I  realized  that  Apple  had 
cleared  only  one  of  the  two  hurdles  that  have 
prevented  the  average  person  from  using  a  com- 
puter. First,  despite  manufacturers'  claims,  com- 
puters have  never  been  easy  to  use.  Second,  no 
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one  has  yet  come  up  with  a  computer  with  a  par- 
ticular use  which  makes  everyone  want  to  use  it. 

The  Mac  isn't  as  easy  to  use  as  a  telephone, 
but  it  is  still  easy  to  use,  so  I'd  say  Apple  has 
cleared  the  first  hurdle.  Unfortunately,  unlike  the 
tel^hone,  the  Mac  does  not  have  a  clearly  defined 
usFthat  is  obvious  to  everybody.  The  telephone 
puts  people  in  touch  with  each  other.  But  what 
does  the  Mac  do  that  is  comparable? 

The  Mac  is  clearly  a  milestone  in  the  personal 
computing  revolution.  It  does  evcri/thiii^  more 
easily  than  almost  any  other  affordable  computer. 
But  it  does  nothing  new. 

The  First  Activity  Appliance 

Yet  Mac  is  special,  so  special  that  it  still  may  even- 
tually become  an  appliance  on  everyone's  clesk. 

One  way  for  Mac  to  become  a  mass-market 
computer  is  to  eliminate  the  whole  question  of 
"What  do  I  do  with  it?"  One  way  to  sidestep  this 
question  is  to  replace  it  with  another  question: 
"What  kind  of  appliance  is  Mac?" 

Some  people  say  Mac  is  an  information  ap- 
pliance. Others  say  it  is  a  knowledge  appliance. 
Still  others  say  it  is  a  graphics  arts  appliance.  Like 
the  phone,  it  is  also  a  communications  appliance. 
So  what  kind  of  appliance  is  Mac? 

I  think  it  is  an  appliance  unlike  any  appliance 
we've  seen  before.  I  think  it  is  an  activity  appliance. 
It  lets  you  do  activities.  You  decide  which  activities 
you  want  to  do  using  Mac. 

This  is  a  disappointing  definition — until  you 
look  at  hozu  Mac  lets  you  do  activities.  What  Mac 
does  is  less  important  than  how  it  does  it. 

First,  Mac  lets  you  individualize  everything 
you  do.  You  can  personalize  the  way  you  play, 
the  way  you  work,  the  way  you  interact  with  the 
rest  of  the  world.  Mac  becomes  an  extension  of 
yourself.  It  lets  you  put  your  stamp,  your  personal 
image,  on  everything  you  do.  This  is  a  supremely 
satisfying  feeling. 

Second,  and  most  important  of  all,  Mac  makes 
whatever  activity  you  do  exciting. 

If  this  sounds  like  gobbledygook,  good!  I 
advise  you  to  be  skeptical.  Don't  take  my  word 
for  it.  Go  down  to  your  local  Apple  dealer  and  try 
Mac  for  yourself.  Then  reread  this  article  and  see 
if  I'm  not  right. 

Apple  will  be  able  to  sell  tens  of  millions  of 
Macs  if  it  can  just  convey  these  two  simple  qualities 
to  people.  Mac  cannot  do  anything  new.  But  it  can 
make  whatever  you  do  more  joyful,  and  more 
exciting.  It  makes  everything  you  do  a  personal 
statement  of  who  you  are  and  how  you  see  the 
world. 

What  Makes  Mac  Exciting? 

The  excitement  you  feel  when  using  Mac  is  diffi- 
cult to  describe  because  it  comes  from  lots  of  little. 


intangible,  almost  subconscious  features. 

These  are  the  things  I  noticed  when  I  first 
played  with  the  Macintosh: 

First,  using  Mac  is  iniiiitwe.  At  most  points 
when  you  want  to  do  something,  you  can  guess 
how  to  do  it.  Mac  does  things  the  way  you  feel 
they  ought  to  be  done. 

Second,  Mac  is  a  graphic  arts  machine.  Every- 
thing the  computer  can  do  is  represented  picto- 
rially.  There  are  no  exotic  commands,  no  unintel- 
ligible error  messages,  and  no  control  characters. 
When  you  do  something,  you  see  the  end  result 
on  the  screen,  almost  instantly. 

Third,  the  Mac  is  manageable.  When  you 
take  it  out  of  its  box,  you  are  not  overwhelmed 
with  snakelike  cables,  power  cord  adapters,  disk 
drives,  and  hefty  manuals.  It  was  easier  to  set  up 
the  Mac  than  it  was  to  set  up  the  new  TV  my  family 
got  for  Christmas. 

Fourth,  the  Mac's  keyboard  is  unlike  all  other 
computer  keyboards.  It  looks  familiar— like  a  small 
typewriter  keyboard.  There  are  no  rows  of  in- 
timidating function  keys  and  ominous  keys  like 
HELP,  ESCAPE,  BREAK,  and  RUN. 

Fifth,  even  a  simplified  keyboard  is  still  too 
much  for  many  people.  This  is  where  the  Mac's 
mouse  comes  in.  Believe  it  or  not,  the  mouse  really 
is  easy  to  use.  For  many  applications,  the  mouse 
completely  replaces  the  keyboard. 

Sixth,  the  Mac's  menus  are  very  friendly  mid 
they  do  not  slow  you  down.  After  only  a  couple 
of  minutes  practice  I  was  zipping  around  inside 
an  activity,  using  the  menus  without  breaking  my 
stride. 

Seventh,  like  a  nice  person,  the  Mac  is  "user 
forgiving."  The  Macletsyougetout  of  any  mistake 
by  selecting  the  UNDO  function.  No  matter  how 
disastrous  vour  last  action  was,  vou  can  im- 
mediately  undo  it. 

Eighth,  the  Mac  is  light  {only  20  pounds).  Its 
bag  (at  SlOO),  its  few  parts  and  cables,  and  its  light 
weight  make  it  easy  to  carry  around  with  you.  To 
be  personal  a  computer  should  be  portable.  Now, 
wherever  you  go,  you  can  take  your  computer 
with  you. 

Last,  the  Mac  does  away  with  some  of  com- 
puters' most  irritating  habits.  For  example,  many 
computers  are  extremely  sensitive  to  voltage  fluc- 
tuations and  momentary  brownouts  in  household 
electrical  current.  The  Mac  is  not. 

Also,  the  Mac  is  tall  and  skinny.  Unlike  most 
computers,  it  does  not  hog  your  whole  desk  or 
kitchen  table. 

This  Crazy  Group  Of  People 

After  Jobs  and  Mac  completed  their  presentations 
in  John  Hancock  Hall  that  night  in  Boston,  Jobs 
called  his  core  team  of  Mac  engineers  and  pro- 
grammers up  on  the  stage  to  demonstrate  the 


Mac  and  to  answer  the  audience's  questions. 

The  Mac  team  ran  down  the  aisles  and  poured 
up  on  the  stage.  People  in  the  audience  began 
clapping  wildly.  The  team  responded  by  waving 
and  grinning. 

The  Mac  team — twelve  men  and  one  woman — 
were  as  diverse  in  their  dress  and  personalities  as 
thev  could  be.  Some  wore  ties,  others  wore  blue 
jeans  and  T-shirts.  Some  were  shy  and  withdrawn. 
Others  were  just  as  outgoing  and  theatrical  as 
Jobs  and  Mac. 

Jobs  spoke  of  his  team  as  "artists."  He  pre- 
sented a  slide  show  of  the  team  members  at  work 
on  the  Mac.  "We  prepared  this  slide  show,"  he 
said,  "to  try  to  capture  some  of  the  energy  of  this 
crazy  group  of  people." 

At  the  conclusion  of  the  slide  show,  one  of 
the  programmers.  Bill  Atkinson,  speaking  for  the 
team,  said,  "We  are  hoping  that  through  the  Mac 
we  can  leverage  our  energy  into  the  world  at 
large." 

The  last  slide  showed  the  inside  of  the  case 
that  covers  the  Mac's  monitor,  disk  drive,  and 
circuit  boards.  On  the  side  of  the  case  of  every 
Macintosh  are  inscribed  the  names  of  the  members 
of  Mac's  team. 

The  Right  Stuff 

Manv  people  have  begun  comparing  the  team  to 
the  original  astronauts.  The  members  of  the  team 
are  called  the  "astronauts  of  computing,"  Their 
idealism,  their  individual  genius,  their  devotion 
to  their  work,  and  their  standards  of  excellence 
are  like  the  manned  space  program  astronauts' 
highly  touted  "right  stuff." 

There's  no  question  that  the  Mac  team  has 
the  right  stuff.  But  I'm  not  sure  they  should  be 
called  astronauts.  In  fact,  there  is  no  direct  com- 
parison with  the  manned  space  program. 

The  small  number  of  astronauts  in  the  space 
program  were  just  the  top  of  a  pyramid  of 
tliousands  of  anonymous  individuals  whose  ef- 
forts made  the  astronauts'  great  achievements 
possible. 

With  Apple  this  pyramid  is  upside  down. 
The  right  stuff  demonstrated  by  the  team  of  Mac 
programmers  and  engineers  has  been  infused 
into  the  Macintosh  computer.  This  team  lepre- 
sents  the  small  point  at  the  bottom  of  the  upside- 
down  pyramid.  Tiie  Macintosh  will  perhaps  even- 
tually be  used  by  millions  of  us.  We  represent  the 
broad  base  at  the  upside-down  pyramid's  top. 

The  team,  unlike  their  counterparts  in  the 
space  program,  have  received  well-deserved  rec- 
ognition and  praise  for  their  efforts. 

And  who  are  the  astronauts  of  computing? 
We  are,  all  of  us.  New  generations  of  computers 
like  Mac  will  give  all  of  us  the  right  stuff.  With 
new  computers  like  Mac  we  can  all  soar.  © 
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Securities  Anaiysis 


Fred  Schobert.  Jr. 


The  home  computer  is  ideally  suited  for  the  taskofiu- 
i^estmeiit  tvinh/sis  nitd  can  qtiickh/  perform  calculations 
that  would  take  liour>  to  do  by  hand,  even  with  a  calcu- 
lator. This  program  provides  you  with  some  of  the  same 
poiverful  tools  used  In/  professional  financial  analysts  in 
evaluating  stocks  and  bonds  and  the  companies  that 
issue  them.  Versions  are  included  for  the  64  and  VIC 
tuith  3K  or  more  expansion,  Atari,  and  IBM  PC  ami 
PCjr. 


In  today's  financial  environment,  even  the  most 
modest  investor  can  participate  in  a  wide  variety 
of  investment  opportunities  through  discount 
brokers  or  stoci<  accumulation  plans  like  Merrill 
Lynch's  Sharebuilder  account. 

If  you're  interested  in  the  stock  market  but 
don't  know  anything  about  investing,  you  should 
know  that  most  brokers  will  be  happv  to  assist 
you.  Also,  there  are  many  excellent  sources  of 
investment  information  available.  Some  of  the 
best  are:  the  PBS  television  program  Wall  Street 
Week,  The  Wall  Street  Journal,  Barron's,  Forbes,  For- 
tune, Business  Week,  Moody's  Investors  Service, 
the  Value  Line  Investment  Surve}',  and  Standard 
and  Poor's  Outlook  and  Stock  Guide.  These  sources 
are  available  in  most  libraries  and  brokerage 
houses. 

You  must  clearly  understand,  however,  that 
the  market  is  riskv  and  that  usually  the  higher  the 
profit  potential,  the  higher  the  accompanying 
risk.  This  program  is  not  a  get-rich-quick  scheme. 
It  merely  gives  you  a  set  of  fundamental  analytical 
tools  that  you  can  use  to  make  informed,  intelli- 
gent investment  decisions. 

The  program  is  written  for  the  average  per- 
son. However,  if  you  are  completely  unfamiliar 
with  fundamental  analysis,  it  would  be  helpful  if 
you  first  read  two  free  pamphlets  distributed  by 
the  nation's  largest  stockbroker,  Merrill  Lynch. 
They  are  How  to  Read  a  Financial  Report  and  The 
Bond  Book.  Familiarity  with  these  and  the  notes  in 
this  article  should  allow  you  to  use  this  program 
correctlv  and  evaluate  its  output  even  though 
you've  never  been  exposed  to  investments  or 
financial  matters  before. 

The  program  is  divided  into  five  main  sub- 
routines. Two  are  used  for  stock  valuation,  one 
for  fundamental  analvsis,  one  for  bond  valuation, 
and  the  final  one  for  printing  to  the  screen. 
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The  Gordon  Valuation  Model 

The  Gordon  stock  valuation  model  is  located  in 
lines  205-580.  Although  limited  in  its  usefulness, 
it  is  academically  sound  and  is  the  basis  for  the 
more  complex  models  used  by  professional  se- 
curities analysts.  It  is  based  on  the  premise  that 
stock  prices  are  determined  as  the  present  value 
of  a  stream  of  cash  flows  (dividends).  The  major 
drawback  of  the  model  is  that  it  assumes  that  the 
growth  rate  and  dividend  policy  of  the  company 
are  perpetual  and  unchanged. 

The  subroutine  asks  you  to  estimate  the  com- 
pany's annual  growth  rate  in  earnings.  Due  to  the 
importance  of  accurately  estimating  earnings 
growth,  it  is  best  to  use  the  estimates  of  profes- 
sional analysts  who  have  the  most  up-to-date 
objective  and  subjective  information  at  their 
fingertips.  These  estimates  can  often  be  found  in 
the  sources  listed  earlier.  However,  if  no  growth 
estimates  are  available,  the  program  will  request 
more  data  from  you  and  estimate  a  growth  rate 
itself. 

In  line  230  the  model  also  defines  what  is 
known  as  the  market  risk  premium  as  5.5  percent 
over  the  long  term  Treasury  rate,  adjusted  for 
risk.  This  is  an  estimate  and  differs  slightly  from 
year  to  year  and  from  stock  to  stock.  The  figure 
was  derived,  however,  from  a  study  which  calcu- 
lated the  average  market  risk  premium  for  Stand- 
ard and  Poor's  400  Industrials  over  the  past  20 
years.  Another  study,  based  on  figures  from  1926- 
1978  found  the  market  risk  premium  to  average 
6.2  percent  over  the  U.S.  T-bill  rate.  If  you  feel 
more  comfortable  dealing  with  the  T-bill  rate,  you 
can  make  the  appropriate  changes  in  lines  220-230. 
A  quick  comparison  of  the  two  figures  shows  that 
they  are  approximately  equivalent. 

Another,  more  general,  model  is  located  in 
lines  750-940.  This  is  a  revision  of  the  famous 
Graham  valuation  model  and  was  designed  to  yield 
a  value  closelv  approximating  the  values  obtained 
from  much  more  complex  models.  An  earnings 
multiple  is  obtained  and  then  multiplied  by  nor- 
malized earnings  to  obtain  the  price  of  the  stock. 

Although  this  method  leaves  something  to 
be  desired,  namely  subjective  input,  you  can  nor- 
malize earnings  by  fitting  a  least  squares  linear 
trend  line  to  the  last  five  years'  earnings  per  share 
in  lines  790-820  and  then  pick  off  the  current  year's 
normalized  earnings  per  share  (EPS). 

To  obtain  a  growth  rate,  calculate  a  mean 
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Ifyou 


can  learn  to  use  this  word  processor 
in  90  seconds,  can  itreally  be  any  good? 


How  are  youl 


How's  Dad?   Littb 


I'm  having  a  great  time  here  at  school 
euen  thouQh..  as  a  freshrnan  aga iru  I 
didn't  get  all  the  classes  that  I  hoped 
for . 

Here's  wy  schedule  so  far  = 

MWF:    Hist.     10- n..     Eng-     i-2 
TTh=    Bio.    8-18.    Drama   2-4 

Let's   be   frank    Mom. 


Materials  went  up  tnis  year .  ; 


I  need  wcney.'  lots 


Please  hurry 


Bruce 
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CUT  &  PASTE™  displays  its  commands  on  a  single  line  ai  the  bottom  of  the  screen.  This 
makes  working  tcitfi  it  easier  and  also  gives  you  more  usable  space  on  the  screen. 


Of  all  word  processors  on  the 
market  today,  Cut  &.  Paste  may 
well  be  the  easiest  to  use.  In 
fact,  by  the  time  you  finish  reading  this 
section  of  the  ad,  you'll  know  how 
to  work  with  Cut  &.  Paste.  So  read  on. 
START  TYPING.  Working  with  Cut 
&  Paste  is  like  working  with  a  type- 
writer. Ifyou  know  how  to  use  a  type- 
wTiter,  you  already  know  how  to  t>'pe 
in  your  draft  with  Cut  &  Paste.The 
only  real  difference  is,  with  Cut  & 
Paste  it's  easier  to  correct  typos. 
MAKING  CHANGES.  Ut's  say 
you've  decided  to  make  a  cut  in  your 
rough  draft. To  do  this  you  put  the 
cursor  (the  bright  block)  at  the  start 
of  the  text  you  want  to  delete,  and 


stretch  it  through  to  the  end  of  your 
cut.  Then  you  send  the  cursor  down  to 
the"CUT"  command  on  the  bottom 
of  the  screen.  Done. 

If,  on  the  other  hand,  you  want 
to  keep  that  line,  but  put  it  in  a  differ- 
ent part  of  your  draft,  you  use  the 
"PASTE"  command.  You  mark  the 
point  of  insert  with  the  cursor.  Then 
you  put  the  cursor  over  "PASTE," 
That's  all  there  is  to  it. 
PRINTING  IT  OUT.  When  you 
like  the  way  your  work  looks,  you  print 
it.  Put  the  cursor  on  the  "PRINT" 
command.  Then  set  your  margins,  in 
inches. That's  it. 

You  now  know  how  to  use  Cut 
&  Paste. 


OKAY,  IT'S  SIMPLE.  BUT  HOW 
GOOD  IS  IT?  Cut  &  Paste  has  all 
the  features  you'll  ever  need  to  use 
at  home.  Here  are  a  few  of  them: 

1.  Scrolling  dynamic  menus 

2.  Automatic  word  wrap 

3.  Simple  cut  &  paste  editing 

4.  Block  indenting 

5.  Set  margins  and  paper  size  in 
inches 

6.  Tabs 

7.  Automatic  page  numbering 

8.  Controllable  page  breaks 

9.  Headings 

10.  Scrolling  text  windows 

11.  Automatic  widow  and  orphan 
control 

12.  Clear  and  concise  manual 
In  other  words,  Cut  &.  Paste 

will  do  just  about  everything  otlier 
word  processors  do.  But  Cut  <Sl  Paste 
will  do  it  more  easily.  Without  com- 
plex commands  and  modes. 

Ifyou  think  about  a  word  proc- 
essor in  terms  of  what  it  replaces  (type- 
writers, pens  and  paper,  files).  Cut  & 
Paste  begins  to  look  very  good  indeed. 

And  when  you  consider  that  all  this 
power  can  be  had  for  approximately 
$50,  we  think  you'll  see  why  we  believe 
Cut  &  Paste  is  something  of  an 
achie\'ement. 

A  PHILOSOPHY  OF  DESIGN. 
The  people  who  designed,  devel- 
oped and  programmed  Cut  &  Paste 
have  some  fairly  heavy  credentials. 

They  are  people  who  worked  on 
tlie  internationally-famous  user  inter- 
face designs  tliat  led  to  the  Xerox  Star' 
and  Apples  Lisa!  They  are  also 


THE  CHANGING  OF  THE  GUARD.  Until  qmte  recently  ice  used  pens  and  paper 
and  typewriten  to  write  with,  mostly  because  we  knew  how  to  use  them. They  have  been  good 
tools,  but  limited.  You  tatd  to  mal<e  messes  ivhen  you  work  with  them,  and  getting  rid  of  those 
messes  makes  extra  work.  Cut  &  Paste  is  an  inexpensive  and  practical  alternative.  Because  it  is  as 
easy  to  use  as  a  rypewriter,  you  really  will  use  it.  Which  may  make  it  the  first  sensible  word  (processor 
for  the  home.  Thus  an  alleged  (afeor-sa ving  device  has  come  to  a  posi tion  where  it  really  cansa w; a 
significant  amount  of  labor,  i.e.,  yours. 


THE  MEN  WHO  MADE  CUT  & 
PASTE.  The  Linotype  machine  pictured  here 
was  tlie  19th  century's  most  important  contri- 
bution to  word  processing  technology.  It  let 
typesetters  compose  and  rearrange  text  in  the 
form  of  metal  castings.  The  importance  of  Cm 
&  Paste,  of  course,  must  await  the  judgment 
of  history.  Nevert/ieless,  the  set  wi  men  who  de- 
veloped it  look  confident  Wre.  Standing  lefi  to 
right,  they  are:  Norm  Lane,  Stet-e  Shan;  David 
Maynard,  Dan  Silva,  Steve  Hayes  and  Jerry 
Morrison.  Seated  at  the  console  is  Tim  Mott, 
whose  idea  this  was  in  the  first  place. 

people  who  have  in  common  a  very 
lucid  philosophy  of  design. 

Computers  and  the  programs  they 
run  are  tools,  they  believe.Tools  are 
never  noticed  unless  they  are  bad  tools. 
When  they're  good,  they  become,  in 
effect,  invisible.  And  if  you  want  to 
make  a  good  tool— an  invisible  tool— 


you'd  best  study  the  way  people  use 
the  tools  they  already  have. 

As  a  result  of  this  thinking.  Cut  &. 
Paste  was  designed  to  work  much  in 
the  same  way  that  you  already  work 
with  a  t^'pewriter  or  with  pen  and 
paper  The  most  complex  and  power- 
ful parts  of  the  program  are  hidden 
from  view.  The  work  they  do  takes 
place  deep  in  the  machine.  All  you  get 
to  see  are  the  results. 

But  beyond  that,  there  is  something 
almost  indefinable  about  a  good  de- 
sign.Things  about  it  just  seem  to  work 
crisply  Little  touches  and  features 
that  you  notice  make  you  want  to  smile. 
If  it's  really  good, : 
it /eels  good. 

Cut  &.  Paste 
feels  good.  ELECTRONIC  ARTS 


THE  PRODUCTS  of  Electronic  Arts  am 
be  found  in  your  favorite  computer  stores,  soft- 
ware centers,  and  in  leading  department  stores 
throughout  the  country.  Both  Cut  &  Paste 
and  FingTvdai  Cookhooic  are  now  available 
at  a  suggested  retail  price  of  $50  for  the  Apple 
lie  and  the  Commodore  64  and  will  soon  be 
available  for  the  IBM-PC  and  Atari. 


OUR  COMMITMENT  TO 
HOME  MANAGEMENT 

Cut  &.  Paste  is  just  one  of  a  growing 
number  of  products  we're  publishing 
within  the  category  of  "home  manage- 
ment software."  These  products  are  all 
built  around  the  same  program  archi- 
tecture, making  them  all  equally  "friend- 
ly," as  well  as  remarkably  straightfor- 
ward and  practical.  We  believe  that 
designs  like  these  will  soon  make  home 
computers  as  functional  and  efficient  as 
today's  basic  appliances. 

Our  next  product  in  this  line  is  called 
Financial  Cookbook.  It's  a  realistic  alterna- 
tive to  the  complex,  pre-programmed  fi- 
nancial calculators  we  all  wish  we  knew 
how  to  use.  With  a  few  simple  keystrokes, 
Fimindal  Cookbook  lets  you  make  more 
than  30  key  time-value-oi-money 
computations— just  about  all  the  ones 
you'd  ever  use  for  personal  finances— 
like  calculating 
mortgages  with 
changing  inter- 
est rates,  com- 
pounding the 
interest  on  iRA 
and  savings  ac- 
counts, and  buy- 
versus  -  lease 
comparisons  for 
automobile  pur- 
chases. 

To  find  out  more  about  these  home 
management  products  and  about  what 
we  have  planned  for  the  future,  call  or 
write:  Electronic  Arts,  2755  Campus 
Drive,  San  Mateo,  CA  94403  (415) 
571-7171. 
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growth  rate  and  add  one  standard  deviation  to 
obtain  a  high  value  and  subtract  one  standard 
deviation  to  obtain  a  low  value  in  lines  830-860. 
The  program  prints  out  the  last  four  years'  growth 
rates  to  allow  you  to  determine  if  growth  is  ac- 
celerating, declining,  or  remaining  stable. 

The  program  allows  you  to  make  your  own 
growth  and  normalized  earnings  estimates,  but 
since  it  is  difficult  to  find  seven-  to  ten-year  growth 
estimates,  it  might  be  best  to  allow  the  program 
to  calculate  these  for  you. 

Before  leaving  stock  valuation,  one  word  of 
caution.  These  models  only  approximate  the  theo- 
retical value  of  stock.  Although  useful  in  arriving 
at  a  "buy,  sell  or  hold"  recommendation,  it  is 
important  to  bear  in  mind  that  something  is  worth 
only  as  much  as  people  are  willing  to  pay  for  it. 

The  subroutine  located  in  lines  600-720  will 
give  vou  an  abbreviated  fundamental  analysis  of 
the  corporation.  The  data  input  stage  requires  a 
large  amount  of  data  to  be  entered  which  can  be 
obtained  from  a  variety  of  easily  accessible 
sources.  The  companv's  yearlv  or  quarterlv  finan- 
cial reports  are  the  best  sources  of  information 
here,  and  these  are  readily  available  from  the  com- 
panv  itself.  Even  if  it  takes  a  week  or  two  for  the 
information  to  arrive,  il  will  he  well  worth  the 
wait.  Other  sources  of  this  infomiation  are  brokers' 
Standard  and  Poor's  sheets  and  Moody's  Investors 
Service. 

You  can  get  printouts  of  both  the  entered 
data  and  the  calculated  ratios.  Enter  the  requested 
data  carefull}'  and  check  it.  If  the  data  is  incorrect, 
your  ratios  will  also  be  incorrect.  Be  sure  to  keep 
your  units  equivalent.  For  example,  if  you  start 
out  in  millions,  stay  with  millions.  If  you  switch 
from  millions  to  hundreds  of  thousands,  the  af- 
fected ratios  will  be  meaningless,  unless  you  en- 
tered all  of  the  significant  digits  throughout.  And 
that's  both  unnecessary  and  time-consuming.  For 
example,  327,700,000  would  be  entered  327.7. 

A  Few  Definitions 

The  prompts  should  be  self-explanatory,  but  a 
few  notes  are  in  order. 

•  Interest  expense  and  income  tax  are  nor- 
mally entered  as  positive  numbers,  even  though 
they  are  negative  numbers  on  the  income  state- 
ment. If  the  company  receives  a  net  tax  benefit, 
however,  income  tax  should  be  entered  as  a  nega- 
tive number.  Naturally,  if  the  companv  loses 
money,  then  net  income  and  income  before  tax 
would  show  up  and  be  entered  as  negative 
numbers. 

•  COGS  means  cost  ofgoodf  sold,  but  may  also 
be  cost  of  salt's  if  it  is  a  service  industry  where  in- 
ventory turnover  is  of  less  importance. 

•  Sinking  fund  is  the  principal  repavment  of 
long-term  debt.  It  is  usually  found  in  the  "notes 
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to  the  financial  statements"  section  of  the  com- 
pany's annual  report.  Buj:  if  no  figure  is  available, 
the  program  calculates  it  as  5  percent  of  the  long- 
term  debt,  which  is  usually  not  far  from  the  truth. 

•  Stockholder's  equity  is  sometimes  referred  to 
as  net  worth  or  shareholder's  equity. 

•  Retained  earnings  means  accumulated  re- 
tained earnings. 

•  The  burden  coverage  ratio  is  a  measure  of  risk 
and  represents  how  well  the  company  is  able  to 
service  its  total  debt  burden. 

•  If  you  don't  know  the  beta  of  a  stock,  use  1, 
which  is  the  beta  of  the  market  as  a  whole. 

II  is  important  to  remember  that  the  ratios 
themselves  are  of  little  value  unless  they  are  com- 
pared to  something,  such  as  the  industry  averages 
or  the  firm's  leading  competitors.  Also,  historical 
trends  can  be  identified  if  the  ratios  for  the  same 
firm  are  calculated  over  a  period  of  years  using 
historical  data. 

Finally,  this  subroutine  calculates  a  bank- 
ruptcy score  in  lines  625-630  based  on  the  Altman 
bankruptcy  model.  It's  very  accurate  in  forecasting 
impending  financial  troubles  for  companies  with 
total  assets  of  between  $l-$25  million.  Its  applica- 
bilitv  for  firms  outside  that  range  is  disputed,  but 
it  ought  to  be  a  good  indicator  of  trouble  for  firms 
of  any  size. 

Bond  Valuation 

In  the  bond  valuation  subroutine  located  in  lines 
1000-1130,  the  user  is  asked  to  enter  the  appro- 
priate interest  rate  for  the  bond.  This  rate  is  your 
required  rate  of  return  for  the  bond,  and  you 
should  consider  these  factors  before  determining 
this  crucial  figure:  interest  rate  risk,  inflation  risk, 
maturity  risk,  default  risk,  callability  risk,  and 
liquiditv  risk.  These  are  obviouslv  subjective 
evaluations,  but  are  no  less  important  than  the 
equation  itself. 

To  help  you  with  this,  you  can  quickly  and 
easily  determine  a  proxy  for  this  figure  by  looking 
on  the  credit  page  of  The  'Wall  Street  journal  to  see 
what  the  coupon  rate  (or  current  yield)  is  for  newly 
issued  bonds  of  equivalent  rating.  This  figure  is 
what  professional  analysts,  investment  bankers, 
and  individual  investors  are  currently  using  for 
an  appropriate  rate  for  newer,  but  similar,  bonds. 
Also,  when  the  appropriate  rate  you  enter  yields 
a  bond  value  closely  approximating  that  day's 
selling  price  of  the  Lx)nci,  that  rate  is  the  bond's 
yield  to  maturity  and  is  your  yearly  rate  of  return 
should  you  buy  the  bond  at  that  price  and  hold  it 
to  maturitv. 

Finally,  there  is  no  substitute  for  common 
sense  in  interpreting  the  results  of  the  program. 
Remember  that  the  program  was  designed  to  be  a 
set  of  investment  tools  and  cannot  guarantee  fi- 
nancial success. 
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Handle  —A  Complete  Line 

of  Products  to  Keep  Your 

Commodore  64  Busy 

-Everyday! 
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Handle  your  home 
budget,  stock  portfolio, 
loans  and  mortgages 
with  Calc  Result 

Calc  Result  Easy  is  a  simp!e-to-use  spread- 
sheet prograrn  (or  the  Commodore  64.  It 
includes  254  lines  x  64  columns,  built-in 
graphics,  and  flexible  printout  formats. 
Plug-in  cartridge...  just  plug  it  in  and  its 
ready.  Perfect  for  cash  flow  analysis,  perso- 
nal net  worth,  ]RA  analysis,  travel  expenses, 
credit  card  expenditures,  gas  and  elec- 
tricity bills,  etc. 


Calc  Result  Easy  $49.95 

Calc  Result  Advanced  gives  you  32  pages  of 
interrelated  information.  The  three-dimen- 
sioned feature  allows  you  to  consolidate 
calculations  in  summary  format.  Calc  Re- 
sult Advanced  comes  on  plug-in  cartridge 
and  disk.  Disk  drive  required. 
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A  complete  database 
for  the  home 

Addresses,  telephone  numbers,  appoint- 
ments, birthdays,  or  records-whatever  you 
want  to  remember-put  it  on  DIARY,  an 
electronic  notebook  for  home  use.  DIARY 
comes  on  a  plug-in  cartridge.  Its  easy  to 
use  and  easy  to  learn,  giving  you  the 
flexibility  to  design  a  personal  calendar 
or  address  book. 


Calc  Result  Advanced  $99.95 


Diary  $29.95 

Turn  statistical 
information  into 
graphic  format 

GRAF  64  converts  mathematical  functions 
into  graphical  cinalysis  on  the  Commodore 
64.  An  ideal  program  for  studying  math. 
Define  a  function,  set  the  limits  of  an  axis, 
plot  a  graph  and  display  the  extreme 
points,  intersection  values,  etc. 


^ 

majifimf  ifra,  k«d  i><niin»i 

I.J5     ~^*^        '•" 

1 

./4.n                              N. 

-"-■H                                                         \ 

-ft.lt 

\ 

-Jt# 

\ 

b.^ -_ 

_^^ 

Develop  your  bridge 
skills 

Whether  you're  an  experienced  bridge 
player  or  a  beginner,  polish  your  skills  or 
learn  the  game  with  BRIDGE  64.  Play 
North-South,  then  switch  to  East-West  in 
the  same  deal,  the  return  to  that  deal  again 
and  test  your  skill  with  a  different  strategy. 


Bridge  $39.95 

Handle— for  the 
broadest  range  of 
Commodore  products 

As  the  largest  independent  developer  of 
Commodore  software  and  accessories. 
Handle's  broad  range  of  business,  educa- 
tion and  recreation  products  are  designed 
exclusively  for  the  Commodore  user  who 
demands  quality  and  reliability. 
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For  more  information  and  a  catalogue  of 
our  products,  see  your  nearest  Commo- 
dore dealer,  or  call  us  direct. 


Graf  64  $29.95 


Handle  Software,  Inc. 
Fellowship  Business  Center 
520  Fellowship  Road,  B  206 
Mount  Uurel,  NJ  08054 
Phone  (609)663-0660 
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Program  1:  vie  And  64  Securities  Analysis 

Refer  to  the  "Automafic  Proofreader"  article  before  typing  thiis 
program  in. 

10  GOSUB  5000  irem  166 

20  PRINT" {CLR) {10  DOWN] {RIGHT} SECURITIES 

{SPACE] ANALYSIS"  : rem  241 

30  FORI=1TO1500:HEXTI  s rem  44 

40  DEFFNR(X)=INT(( ( 10t2 ) *X)+ . 5 ) /( 10t2 ) 

:rem  79 
50  PRINT" {CLR] {9  RIGHT] {2  DOWN }{ RVS ] MENU 

{OFF}"  :rem  201 

52  PRINT" {2  DOWNlUSE  DECIMALS  TO"iPRINT"E 

XPRESS  PERCENTAGES."  5  rem  192 

55  PRINT"OMIT  DOLLAR  SIGNS  £. "  :  PRINT"KEEP 

{SPACE] UNITS  EQUIVALENT. {DOWN]" 

:rem  220 
57  PRINT"CHOOSE: {DOWN)"  : rem  73 

60  PRINT "{ RVS }1. STOCK  VALUATION {OFF } 

{DOWN} "t PRINT "{RVS] 2. FUNDAMENTAL  ANALY 

SISfOFF}"  :rem  36 

62  IFCP=2THENPRINT  s rem  181 

65  PRINT" {RVS} 3. BOND  VALUATION {OFF }{ DOWN] 

":PRINT" {RVS]4.END{0PF}"        : rem  16 
70  GETA$  :rem  172 

75  ONVAL(A$ )GOTO200, 600, 1000, 3000  s rem  11 
90  GOTO70  :rem  9 

200  PRINT"{CLR] {8  DOWN]  {RVS}F5  FOR  GORDO 
N  MODEL. { OFF }":PRINT"{ DOWN]  {RVS]F7  F 
OR  GRAHAM  MODEL. {OFF}"  :  rem  95 

201  GETA$  jrem  216 

202  IFA$=CHR$(135)THEN205  : rem  118 

203  IFA$=CHR5(136)THEN750         irem  125 

204  GOTO20X  :rem  98 

205  PRINT" {CLR] {RVS} {5  RIGHT]G0RD0N  MODEL 
{OFF}"  :rem  106 

210  INPUT"STK  SYMBOL";S$  j rem  225 

220  INPUT "LT  US  TREAS";RP  t rem  2 

230  INPUT"BETA"?B:KI=RF+B*.055      : rem  4 
240  INPUT"CURRENT  DIV" ;D{ 0) : IFD(0) =0THENP 
RINT"{ RVS] PRICE  INDETERMINATE {OFF] " :G 
OT0435  : rem  90 

280  PRINT "EST  AVG  ANNUAL  GROWTH" : PRINT "RA 
TE  (Y/N)"  :rem  45 

282  GETA?  : rem  225 

284  IFA5="Y"THEN340  :rem  50 

286  IFA$="N"THEN295  srem  50 

290  G0T0282  irem  112 

295  INPUT"CURRENT  EPS" ;EPS: IFEPS=0THENPRI 
NT" { RVS } PRICE  INDETERMINATE { OFF ] " : GOT 
0435  :rem  175 

300  PRINT"CURRENT  NET  INCOME"      : rem  41 
305  INPUTNI  :rem  191 

310  PRINT "STOCKHOLDERS  EQUITY"    : rem  219 
315  INPUTNW  :rem  206 

320  ROE=NI/NW:RET=1-(D(0)/EPS)     s rem  16 
330  G=RET*ROE!GOTO400  .-rem  28 

340  INPUTG  srem  110 

350  PRINT "GRWTH  CONSTANT (Y/N)"    ; rem  134 
352  GETA$  : rem  223 

354  IPA$="Y"THEN400  : rem  45 

356  IFA$="N"THEN470  : rem  43 

360  GOT0352  irem  108 

400  D1=D(0)*(1+G)  :rem  41 

410  IFKI=<GTHEN470  irem  66 

420  P=D1/(KI-G)  :rem  32 

430  DEFFNR(X)  =  INT( ( ( 10t 2 ) *X) +  . 5 ) /  ( 10T2 )  :  P 
RI NT "{RVS} GORDON  MODEL  VALUES" 

:rem  169 
432  PRINT" {RVS] "S?"  AT  $"FNR(P)  : rem  119 
435  PRINT "Fl -MENU,  F3-PRINT"      : rem  165 
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437  PRINT"F5  FOR  GORDON  MODEL" : PRINT "F7  F 

OR  GRAHAM  MODEL"?  srem  214 

440  GETAS  :rem  221 

445  IFA$=CHR$(133)THENCLR:GOTO40  : rem  158 
450  IFA5=CHR$( 134)THENCLR:GOSUB2000 

:rem  64 
452  IFA5=CHR$ ( 135)THENCLR:GOTO205:rem  209 
455  IFA$=CHR$(136)THENCLR:GOTO750trem  218 
460  GOTO440  :rem  107 

470  PRINT "EST  LENGTH  OF  GRWTH" : PRINT "PERI 

OD  IN  YEARS"  : rem  36 

480  INPUTN:N=N-1  £  rem  235 

500  FORI=0TON  :rem  35 

510  D(I+1)=(D(0)*(1+G)T(I+1))*(1/(1+KI)T( 

I+l ) )  : rem  5 

520  DI=DI+DCI+1)  ;rem  83 

530  DMAX=D(0)*(1+G)TCI+1)  srem  54 

540  NEXTI  :rem  33 

550  PRINT "SUBSEQUENT  GRWTH  RATE?" r : PRINT" 

MUST  BE  <"KI  :rem  87 

560  INPUTNG  : rem  192 

570  C=(DMAX*{1+NG)/(KI-NG) )        : rem  217 
580  P=C*{l/(l+KI)t(I) )+DI:GOTO430  :rem67 

600  PRINT"{CLR]":PRINTTABC3)"{RVS}DATA  IN 
PUT  STAGE {OFF}"  : rem  34 

601  INPUT"STOCK  SYMBOL" ;SS        : rem  119 

602  INPUT"AVG  MKT  PRICE";MP       ; rem  129 

603  INPUT"NET  SALES", -NS  : rem  168 

604  INPUT"COGS"fCG  ; rem  95 

605  INPUT"INTEREST  EXP"? I  srem  78 

606  INPUT"INC  BEFORE  TX" ? IBt E=IB+I s rem  42 

607  INPUT"INCOME  TAX";TP 

608  INPUT"NET  INCOME" ?NI 

609  INPUT "CURRENT  ASSETS" ;CA 

610  INPUT "CURRENT  LIAB"?CL 

611  INPUT"TOTAL  ASSETS" -TA 

612  INPUT"RET  EARNINGS"? RE 

613  INPUT"*  SH  OUTSTDG"?SH 

614  INPUT "LT  DEBT"?LT 

615  INPUT" INVENTORIES" ? IV 

616  PRINT "SINKING  FUND-0  IF  UNK" 

617  INPUTSF:IFSF=0THENSF=.05*LT 

618  PRINT "PRINT  ENTRIES  (Y/N)7"j 

619  GETA? 

620  IFA$="Y"THENGOSUB2000 

621  IFA$="N"THEN625 

622  GOT0619 
625  Xl-( (CA-CL)/TA)*100iX2=(RE/TA)*100!X3 

={E/TA)*100  ,rem  67 

627  X4=((SH*MP)/(LT+CL))*100iX5=NS/TA 

irem  106 

630  Z=.012*Xl+.014*X2+.033*X3+.006*X4+.99 

9*X5  srem  74 

635  TR=.1-(TP/IB)  ,  rem  142 

640  CR=CA/CLsPM=Nl/NS*100:RI=X5*PMiBR=E/C 

(I)+(SF/TR)) IIT=CG/IV  irem  10 

650  PRINT "{CLR} {RVS] FUNDAMENTAL  ANALYSIS 

{ OFF } " ; PRINT " { RVS } FOR  " S$ " { OFF ] { DOWN ] 

irem  152 

660  PRINT "BANKRUPTCY  ANALYSIS  ":PRINT"FOR 

"S$"  YIELDS" J  PRINT "A  SCORE  0F"FNR(2) 

irem  57 

670  PRINT">2.68  NON-BANKRUPT" sPRINT" <1 .81 

BANKRUPT " I  PRINT "=1.81-2.68  UNCERTAIN 

srem  35 
680  PRINTTAB ( 6 ) " { RVS } LIQUI DITY { OFF ] " i PRIN 
T "CURRENT  RATIO="FNR( CR)      irem  2  29 
690  PRINTTAB ( 6 ) " { RVS ] ACTIVITY { OFF } " 

srem  223 

695  PRINT"ASSET  TURNS="FNR(X5) iPRINT"INVE 

NTORY  TURNS="FNR{IT)  :rem  24 


:  rem 

248 

srem 

230 

:rem  40 

trem 

112 

:  rem 

147 

:rem 

129 

s  rem  44 

;  rem  9 

srem 

160 

srem 

136 

srem 

248 

srem 

184 

irem 

229 

;rem 

215 

trem  40 

srem 

115 

Simulator  n 
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ourself  in  the  pilot's  seat  of  a  Piper  181  Clierolcee  Archer  f  dr  an  awe-inspiring  flight  over  real! stic  scene 
from  New  York  to  Los  Angeies.  High  speed  color-filied  3D  graphics  will  give  you  a  beautiful  panoramic  vie 
as  you  practice  takeoffs,  landings,  and  aerobatics.  Complete  documentation  wili  get  you  airborne  quickly 
even  if  you've  never  flown  before.  When  you  think  you're  ready,  you  can  play  the  World  War  I  Ace  aerial  battle 
game.  Flight  Simulator  II  features  include  ■  animated  color  3D  graphics  ■  day,  dusk,  and  night  flying  modei 
■  over  80  airports  in  four  scenery  areas:  New  York,  Chicago,  Los  Angeles,  Seattle,  with  additional  scenery 
areas  available  ■  user-variable  weather,  from  clear  blue  skies  to  grey  cloudy  conditions  ■  complete  flight  , 
instrumentation  ■  VOR,  ILS,  ADF,  and  DME  radio  equipped  ■  navigation  facilities  and  course  plotting  ■  World 
War  I  Ace  aerial  battle  game  ■  complete  information  manual  and  flight  handbook. 


See  your  dealer . . . 

or  write  or  call  for  more  information.  For  direct  orders  please  add  $1 .50  for 
sfiipping  and  specify  UPS  or  lirst class  mail  delivery.  American  Express,  Diner's 
Club,  MasterCard,  and  Visa  accepted. 

Order  Line:  800/637-4983 
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(217)  359-8482  Telex:  206995 


700  PRINTTAB(4)"fRVS}PR0FITABILITYC0FF)" 

srem  74 
705  PRINT" PROFIT  MARGIb5="FNR(PM)  "%"  s  PRINT 

"ROI="PNR(RI)"%"  :rem  230 

710  PRINTTAB ( 9 ) " { RVS  3  RISK { OFF } " : PRINT " BUR 

DEN  COVERAGE="FNR(BR)  t rem  198 

720  GOT0435  : rem  110 

750  PRINT" [CLR}{ RVS 5  REVISED  GRAHAM  MODEL 

{OFF}" I INPUT "STOCK  SYMBOL" ; S$ s rem  241 
755  INPUT"AAA  CORP  YLD" ; AA:DEFPNR(X) =INT( 

((10t2)*X)+.5)/(10T2):AA=AA*100 

I  rem  109 

760  PRINT"EST  ANNUAL  GROWTH  RATE" ; : IFCP=2 
THENPRINT  : rem  226 

761  PRINT"OVER  7-10  YRS E 2  SPACES  3 (Y/N) " 

! rem  149 

762  GETA$  tram  228 
764  IFA$="Y"THEN870  :rem  61 
766  IPA$="N"THEN780  i rem  52 
770  GOT0762                      : rem  118 

780  PRINT" [DOWN}LIST  CURRENT  YR  FIRST."; 

: rem  124 

781  IFCP=2THENPRINT  i rem  237 

782  PRINT "SEPARATE  ENTRIES  WITH  COMMAS" 

I  rem  221 
785  PRINT" {RVS} YEAR {3  SPACES} EPS {OFF} " 

J  rem  50 
790  X(l)=2tX(2)=ltX(3)=0:X(4)=-l:X(5)=-2 

srem  85 

800  F0RN=lT05!lNPUTR(N),Y(N)      srem  242 

805  IFY(N)=0THENPRINT"DIV  BY  0. ENTER  AGAI 

N":N=N-1:NEXTN  : rem  131 

810  YT=YT+Y(N) rXY=XY+Y(N)*X(N) :NEXTN 

;rem  55 
820  A=yT/5:B=XY/10:NE=A+B*X{l)    : rem  223 

830  F0RN=1T04  srem  21 

831  IPY(N+1)<Y(N)ANDY(N+1)<0THENG{N)=(YCN 
)-Y(N+l))/ABS(Y(N+l))*100     srem  199 

832  IFY(N+1),<Y{N)ANDYCN+1)<0THENGT=GT+G(N 
) SGOT0836  srem  14 

833  IFY(N+1)>Y(N)ANDYCN)<0THENG(N)=(Y{N)- 
Y(N+1))/ABS(Y(N+1))*100       srem  111 

834  IFY(N+1)>Y(N)ANDY(N)<0THENGT=GT+GCN) s 
GOT0836  srem  182 

835  G(N)=(Y(N)-Y(N+1) ) /Y(N+1 ) *100 sGT=GT+G 
(N)  srem  137 

836  NEXTN  srem  46 
840  GM=GT/4  srem  107 
850  F0RN=1T04 ; GS= { G ( N ) -GM ) 1 2+GS : NEXTN 

srem  60 
860  SD=SQR(GS/3) SGOTO880  srem  200 

870  INPUTGMsGM=GH*100  srem  29 

875  INPUT "NORMALIZED  EPS";NE       srem  35 

880  HI=(37.5+8.B*(GM+SD) ) /aa*NE : L0= ( 37 . 5+ 
8.8*(GM-SD))/AA*HE  srem  206 

885  ME=(37.5+8.8*GM)/AA*NE        srem  135 

890  PRINT" {CLR} {RVS}REVISED  GRAHAM  MODEL 
{OFF}" SPRINT" {RVS} CALCULATIONS  FOR  "S 
$  SPRINT  srem  160 

895  IFNE<0THENPRINT"VALUE  UNCERTAIN. 

{2  SPACES }NEG  NORMALIZED  EPS."sGOT091 
0  srem  122 

900  IFGM+SD=>--4.2614THENPRINT"HI  VALUE=$" 
FNR(HI) :GOTO904  srem  156 

PRINT"HI  VALUE  UNCERTAIN"      srem  35 


902 

904 

906 

908 


IFGM=>-4.2614THENPR1NT"MEAN  VALUE=$"F 
NR(ME) SGOTO908  srem  115 

PRINT"MEAN  VALUE  UNCERTAIN"  srem  183 
IFGM-SD=> -4 . 261 4THENPRINT " LO  VALUE=5 " 
FNR(LO) SGOTO910  srem  183 


909 

910 

912 
915 
920 
930 

935 

940 
1000 

1010 

1015 

1020 
1030 
1040 

1050 
1055 
1060 
1070 

1072 
1074 

1075 

1080 

1085 

1090 
1100 
1110 

1120 

1130 
2000 
3000 
5000 


PRINT"LO  VALUE  UNCERTAIN"  srem  52 
PRINT"AVG  ANNUAL  GROWTH  RATE " ; s IFCP=2 
THENPRINT  srem  209 

PR1NT"F0R  "S$"="FNR(GM) "%"  srem  128 
PRINT "STD  DEV="FNR(SD) "%"  srem  174 
PRINT "GROWTH  RATES  WEREs "  srem  51 
F0RN=lT04sPRINTR(N) ,FNR(G(N)) "%" sNEXT 
N  srem  71 

PRINT "NORMALIZED  EPS=9 "FNR(NE ) 

srem  122 

GOT0435  srem  114 

PRINT " { CLR ] " s  PRINTTAB ( 4 ) " { RVS } BOND  V 


ALUATIONfOFF}" 

PRINT"FOR  $  1,000  PAR  VALUE" 

ONDS.  INTEREST  PAID" 

PRINT "SEMI-ANNUALLY. {DOWN}" 

INPUT "BOND  NAME";B$ 

INPUT"COUPON  RATE";CsCI=C/2 

PRINT "APPROPRIATE  INTEREST" s 

TE  FOR  BOND";KsKD=K/2 

PRINT "#  OF  FULL  PERIODS 

INPUT "BOND  MATURITY"; NY 

IST=CI*1000 

PRINT "NUMBER  DAYS  UNTIL 

IFCP==2THENPRINT 

PRINT "INTEREST  PAYMENT. 


TO" 


srem  64 
sPRINT"B 

srem  38 
srem  150 
srem  124 
srem  189 
INPUT"RA 
srem  199 

srem  59 

3  rem  35 
srem  107 
NEXT"; 

srem  153 

srem  23 
{2  SPACES} IF" 
srem  230 
PRINT"UNKNOWN,  USE  0."        srem  69 

inputdeIfd=0thenprint"price  may  vary 
BY  AS"  srem  226 

IFD=0THENPRINT"MUCH  AS  THE  COUPON" 

srem  132 
PA=(1-(1/(1+KD)TNY))/KD  srem  247 
PF=1/(1+KD)TNY  srem  54 

V=IST*PA+1000*PP8lPD<>0THENV=(V+IST) 
*(l/(l+KD) )T{D/183)  srem  189 

PRINT" {RVS}PRICE  OF  "B$ "=$"FNK ( V) " 
{OFF}" 
GOT0435 

0PEN4,4sSYS  82BsRETURN 
END 
FOR  1=828  TO  919  s  READ  As 


:  rem  29 

srem  154 

srem  125 

srem  154 

CK=CK+AsPOKE 


I,AsNEXTsIF  CK=13169  THEN  RETURN 

srem  239 
PRINT "{down} CHECK  DATA  STATEMENTS" sP 
RINT" ERROR  IN  TYPING. "s END  i 
DATA  162,004,032,201,255,169 
DATA  013,032,210,255,169,000 
DATA  133,253,173,136,002,133 
DATA  254,032,237,255,134,251 
DATA  152,170,134,252,160,000 
DATA  177,253,041,127,133,195 
DATA  041,064,010,005,195,041 
DATA  191,133,195,041,032,073 
DATA  032,010,005,195,032,210 
DATA  255,200,196,251,208,226 
DATA  169,013,032,210,255,024 
DATA  165,253,101,251,133,253 
DATA  165,254,105,000,133,254 
DATA  166,252,202,208,199,032 
DATA  204,255,169,004,032,195 
DATA  25  5,096 

ProgrcilTI  2:  Atari  securities  Analysis 

Refer  to  the  "'Automatic  Proofreadef"  article  before  typing  this 
program  in. 

NC  10  ?  "  tCLEAR}  "sQPEN  #1,4,0,  "Ks" 
AH  15  6DSUB  1300sREM  REMOVE  IF  YOU  DON 
' T  HAVE  A  PRINTER 


5010 

5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 


rem  110 

srem 

78 

srem 

70 

srem 

78 

srem 

88 

s  rem 

73 

;  rem 

96 

s  rem 

76 

srem 

89 

srem 

62 

srem 

87 

s  rem 

76 

srem 

80 

srem 

79 

srem 

93 

:  rem 

92 

:  rem 

78 
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April  15th.  is  just  Qfound  the  Cq 


ivhjch  corner  is  up  to  you 


TQxUJQre.  by  /OFTPGOPLE 


With  TaxWare™,  a  year  round  record  keeping  system,  you  can  store  all  tax  related  information  on  electronic  copies 
of  the  most  popular  tax  forms.  You  may  also  calculate  tax  due  at  any  time  under  a  variety  of  circumstances.  Make 
any  change  and  all  other  forms  are  re-calculated. 

•  You  can  do  endless  'what  ifs',  i.e.,  "what  if  your  spouse  takes  a  job",  "what  if  I  sell  my  stock",  "what  is  the  credit 
for  child  care".  .  . 

•  You  may  tag  any  Item  as  belonging  to  husband,  wife  or  joint  and  see  the  different  tax  consequences. 

•  H^Tdies  itemized  deductions,  income  averaging,  dividends,  stocks,  seff-employment,  rents,  royalties,  childcare, 
marriage  deductions  and  more.  .  . 

•  Eliminates  the  need  for  a  separate  data  base  program  to  store  tax  Items  —  TaxWare™  stores  and  calculates  ail 
in  one. 

•  Create  lists  as  you  need  for  income,  medical  deductions,  IRA  payments  or  anything  else. 

•  Usts  are  easily  displayed  and  updated  totals  are  automatically  transferred  to  the  proper  tax  forms. 

•  A  unique  blend  of  Compiled  Basic  and  Machine  language  used  to  improve  speed  and  accuracy. 

•  Handles  all  forms:  1040;  2441,  Schedules  A,  B,  C,  D,  E.  G  and  W. 


FREE  Backup  Disk  Included  and  Continuous  Updates  Available. 


Tax  Deductible  as  a  Tax  Preparation  Aid. 
Available  on  Disk  Only. 


Sof  tPeople  Inc. 


2042  Marshall  Ave. 
St  Paul,  MN  55104 
(612)  644-1551 


Dealer  Inquiries  Invited 

1.fi0<M47.3273 

Special  P.O.  P.  Packages 

&  Prices  Available  I   >»" 

TaxWwv  It  a  ngltttmd  trKfamarti  of  SlmSon. 


BO  20  POKE  752,  1  :  POSITION  10,5;?  "SECU 

RITXES  ANALYSIS" 
SB  30  FOR  1  =  1  TO  1000:NEXT  I:?  ■' 

CCLEARJ  " 
NH  50  CLR  :?  "  {CLEAR  J  "  :  D  I  M  S«(85),D(S5 

),A»<192),X(5),R(5),Y<S),G(5),B* 

(85) 

FOR  1  =  1  TO  5: R  (  I  )=0: G  (  I  > =0: NEXT  I 


MODEL  VALUES 


U  52 

PD  55 

HP  56 

Cfi  57 

NQ  60 

SJ  65 


POSITION  18.3:?  "dMIlX"  :  PDS  I  T  I  ON 

2,5:?  "USE  DECIMALS  TO  EXPRESS  P 

ERCENTAGES. " 

PRINT  "OMIT  4  SIGNS  AND  KEEP  UNI 

TS":PRINT  "EQUIVALENT." 

?  :?  "CHOOSE  1,  2,   3  OR  4:" 

?  : ?  : PRINT 


70 
7  3 
75 
80 
DF  83 
M  90 
BF  200 


hi 


GET 
IF  A 
IF  A 
IF  A 
IF  A 
GOTO 


PRINT 
[ 
A 


1.3    S^TOCK    vRLunrxo 


UNDnMEHTRi-     RMni_VSXS 


31      BOND     URLUATZO 


•J;I.Tri-T:1T" 


»»1  . 
=  49 
=  50 
=  51 
=  52 
70 
CCL 


THEN  200 

THEN  600 

THEN  1000 

THEN  END 


FOR  GORDON  MODEL . 


BE  201 

NE  202 

NC  203 

Cft  2  05 

KD  2  1  0 

0]  220 

CH  230 

GL  240 

B!  245 

JL  280 


GET 

IF 

IF 


#1 
A  =  4 
A  =  5 
CCL 


EAR} ": POSITION  10,6:?  "fS3 
:POSITIDN  10 

9  THEN  205 
0  THEN  750 
EAR3 ": POSITION  14,2:?  "HE 


ON 

2B2 

OC 

284 

OL 

286 

Hft 

290 

FL 

295 

HP 

297 

LJ 

300 

Lf 

305 

GK  310 

m 

315 

BA 

320 

w 

33  0 

GO 

340 

pp 

350 

DL 

352 

m 

35  4 

OE 

356 

Gfl 

3  60 

CO 

400 

EC 

410 

Cfi 

420 

IS  430 

POSITION  14,4:PRINT  "STOCK  SYMB 

OL" ; : INPUT  5S 

POSITION  S,6r?  "LONG  TERM  U.S. 

TREASURY" ;: INPUT  RF 

POSITION  16,8:?  " BET A " ; : I NPUT  B 

: KI=RF+B«0. 055 

POSITION  12,10:?  "CURRENT  DIVID 

END" ; : INPUT  D 

D<0)=D:IF  D<0>=0  THEN  POSITION 

10,12:?  "fa-tiraa»iTn7T-aig^mi<:r:t^3"  =  g 

OTQ  435 

?  5  ?  "  EST  AVG  ANNNUAL  GROWTH  R 

ATE   < Y/N> " 

GET  «1,A 

IF  A=89  THEN  340 

IF  A=7a  THEN  295 

GOTO  282 

POSITION  7,14:?  "CURRENT  EARNIN 

eS  PER  SHARE" ;: INPUT  EPS 

IF  EPS=0  THEN  ?  " {CLEAR? ": POSIT 


rj.;JuHi 


10, 16; 


10, 18: 


ION  12,4 

"iGOTO  4 

POSITION 

NCDME" ; 

INPUT  NI 

PDSI TION 

EQUI TY"  ; 

INPUT  NW 

ROE=NI /NW: 

6=RET*ROE: 

INPUT  G 

POSITION  8 

T   ( Y/N>  " 

GET  tt  1  ,  A 

IF  A=89  THEN 

IF  A=78  THEN 

GOTO  352 

D1=D  (0)  *  (  1  f-G) 

IF  KI<=G  THEN 

P=D1 / (K I-Q) 

X=P:GOSUB  1200: 


rrg^  iw-3anfTr:T¥a 


■CURRENT  NET  I 


'STOCKHOLDERS 


RET= 1- (D (0) /EPS) 
GOTO  400 


14: 


'GROWTH  CONSTAN 


400 
470 


470 


EP  4  35 

DJ  440 

ir  44  3 

PN  4  45 

NS  450 

m  470 

OL  4  80 
CD  5  00 

fiF  5  10 

FD  520 

DG  5  30 

CEi  540 

IH  550 

HA  560 
NJ  570 
£D  590 
CB  600 

5C  601 

6B  602 

JK  603 

Nfi  604 

JD  605 

GH  606 

LO  607 

IK  60S 

EA  609 

le  610 

BP  61  1 

Ef  612 

GP  613 

IF  614 

IB  615 

KG  6  1  6 

ON  617 

!1B  618 

»:0  620 

BL  621 

FB  622 

m  623 
IL  624 
Cfl  625 
EJ  626 

KN  630 
)0  635 


"IJ;>^:f  d:fci:>Taa 


!000 


GROWTH     PER 


C3     spaces: GORDON 
; S«;  "     AT     «"  ;  X 
POSITION     1 1 , 23: ? 

GET     #1 , A 

IF  A=a9  THEN  GOSUB 
IF  A<>78  THEN  440 
''  "  f  CLEAR>  "  :  GOTO  50 
■^  :?  "EST.  LENGTH  OF 
lOD  IN  YEARS" 
INPUT  N:N=N-1 
FOR  1=0  TO  N 

D(i  +  i)  =  tD<e!)«<i+G)'(i  +  n)*(i/(i 

+  K  I  >  'M I  +  1  )  ) 

DI=DI+D ( I+l ) 

DMAX  =  D<0)*«1+Q)'-(I  +  15 

NEXT  I 

?  :?  "SUBSEQUENT  GROWTH 

ST  BE  -:";KI 

INPUT  NG 

C=<DMAX«(1+N6>/(KI-NG) ) 

P  =  Ct  (  1  /  C  l+p;i  )  ■"  <  I  )  >  +DI  :  GOTO 

?  "  {CLEAR:- ":  POSITION  12,2: 

POSITION  12,4:?  "STOCK  SYMBOL"; 
:  INPUT  St 

POSITION  10,6:?  "AVERAGE  MARKET 
PRICE" ; : INPUT  MP 


RATE  MU 


430 
"GE 


15,8-. 


'NET  SALES' 


IN 


'COST  OF  GOODS 


INTEREST  EXPE 


POSITION 
PUT  NS 
POSITION 

SOLD" ; ; INPUT  CG 
POSITION  12, 12: ? 
NSE" ; : INPUT  1 
POSITION  11,14:?  "INCOME  BEFORE 

TAX";:INPUT  IB:E=IB+I 
POSITION  15,16:?  "INCOME  TAX";: 
INPUT  TP:POSITION  15,18:7  "NET 
INCOME" ; : INPUT  NI 

POSITION  12,20:?  "  BjaHrOKMHEO^ 
»*•«:«": 
GET  «1,A 

IF  A=89  THEN  GOSUB  2000 
IF  A< >78  THEN  609 

?  " {CLEAR: ": POSITI ON  12,2:?  "CU 
RRENT  ASSETS" ;: INPUT  CA 
POSITION  10,4:?  "CURRENT  LIABIL 
ITIES" ; : INPUT  CL 
POSITION  14,6:? 
:  INPUT  TA 
POSITION  12,3:? 
NG" ; : INPUT  RE 
POSITION  6, 10: ? 
TANDING  SHARES"; 
POSITION  11,12:' 
T" ; : INPUT  LT 
POSITI  ON  14,14:-; 
:  INPUT  IV 
POSITION  4, 16: ? 
TYPE  E  IF  UNKNOWN" 

?  "{3  spaces: ";: INPUT  SF:IF  SF= 
0  THEN  SF=0.05«LT 
POSITION  11,18:?  "  \-Iz*-inm^frWWThV^ 

GET  #1 , A 

IF  A=89  THEN  GDSUB  2000 

IF  A078  THEN  623 

Xl=( CCA-CL)/TA)*100:X2=(RE/TA)» 

100:  X3=  tE/TA)  «100:  X4= (  (SH*MP)  /  ( 

LT+CL))«100:X5=NS/TA 

X=0.012*Xl+0.0i4*X2+0.033«X3+6. 

0E-03*X4+0. 999*X5 

TR=1- <TP/IB) 


'TOTAL  ASSETS' 


'RETAINED  EARNI 


'NUMBER  OF 
INPUT  SH 
"LONG  TERM 


OUTS 


DEB 


" INVENTORIES' 
'SINKING  FUND. 
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SEE  THE  LIGHT! 

Quality  Software  that  Outshines  the  Rest 

Programs  for  the  Commodore  64 


S 


Database  Management 
Operating  System 


The  BEST  data  base  management  tool 
for  the  collection,  an'angement  and  display  of 
alphanumeric  data. 

A  unique  pattern  matching  and  searching  capabilities 
make  dMOS™  the  easiest  DB  system  available 
on  the  m^ltet. 

Features'. 

•  Map  search  technique  to  achieve  a  "logical  AND", 
while  searching  between  fields. 

•  Display  records  found,  or  NOT  found  by  a  search. 

•  Rearrange  fields. 

•  Suppress  fields  and  field  titles. 

•  Insert  short  (10  character)  text,  ^■ 

•  Selectively  print  records.  __^  $39" 


-     SoftLoc"'   >- 

The  Program  Security  System 

Set  up  program  security  In  minutes. 
Lock  up  your  personal,  financial  or  business  records. 
3  types  of  protection: 

•  Re-encodes  program. 

•  Modifies  diskette  directory. 


Missing  Key 


^^^^^F  A  reset  System  "V. 

^P  Restores  your  BASIC  Program. 

After  programming  for  hours  you 
press  RUN  for  a  final  check  of  your  work  — 
the  computer  locks  up.  You  press  RUN,  STOP.  .  . 
nothing  —  you  press  RESTORE.  .  .  nothing  —  you 
look  for  the  missing  key  but  it  isn't  there.  You 
have  to  turn  off  your  computer  and  lose  hours  of  work!! 

Now  Add  the  Missing  Key^": 

•  Press  the  "Missing  Key^""  and  the  computer 
resets  itself  from  any  lockup,  and  your  BASIC 
program  is  restored. 

•  Load  and  run  the  program  included. 

•  Takes  nothing  away  from  your  computer,  neither 
memory  nor  a  plug-in  port. 

•  Attaches  to  your  C64  l^eyboard  or  any  other 
convenient  location. 

,  Will  no)  void  your  CBM  warranty.  $29'^ 


^w 


So^v^aTe  by  SoftPeople  ■  Programs  for  the  Commodore  64  m   Connecting  People  with  Great  Ideas. 


Sof  tPeople  Inc. 

2042  Marshall  Ave.    St.  Paul,  MN  55104  (612)  644-1551 


Dealer  Inquiries  Invited 
1-800-447-3273 

Special  P.O.P  Packages 
&  Prices  Available 


At:  640  CR  =  CA/CL:PM  =  NI/NB*100:RI=X5*PM: 

BR  =  E/  (  (I)  +  (SF/TR)  )  :  IT  =  CG/IV 
r.H  650  ?  "  {CLEftR>  "  :  POBIT  ION  b,2.:7     "QQH 

l>T;1SI=t:hrfiT!:1M:l^-^-ib».-^»Jil:»"  ;  S« 
ED  660  POSITION  10,4:?  "BANKRUPTCY  ANA 
LYSIS" : POSITION  10,6:?  "YIELDS 
A  SCORE  DP  ■' ;  :  GOSUB  1200:?  X:? 
m>  670  ?  "    >  2.68  IS  NON-BANKRUPT":? 
<   l.ai   IS  BANKRUPT":?  "    BET 
WEEN  l.Si  «!  2.68  IB  UNCERTAIN" 
JN  630  POSITION  15,12:?  "IWitV^iiSWi"  :  PO 
SITIDN  14,14:?  "RATIO  EQUALS  "; 
:X=CR:GOSUB  1200:?  X 
NJ  690  POSITION  15,16:?  "EEBSII5I5"  :  POS 
ITION  12,18:?  "ASSET  TURNS  =";: 
X=X5:BOSUB  1200:?  X 
GL  695  POSITION  12,19:?  "INVENTORY  TUR 

NS  =";:  X==IT:  GOSUB  1200:?  X 
FG  696  POSITION  11,21:?  "l:::K:f  i^;fc^;>;t=fe} 


EH  697 
JG  698 
DG  699 
PJ  700 


HH  7  05 

BH  7  10 

IM  71B 

EC  7  19 
il  720 
CC  721 
ID  722 
Dt'  750 

GL  752 

DH  755 

If  760 


Efi  762 
ON  7  64 
CJ  765 
CB  780 


EC  7 85 

FF  790 

DG  800 

[IF  805 

DK  810 

df  820 

EH  822 

DD  823 

IN  824 

CE  825 

BF  830 

IL  B31 


GET  «1 , A 

IF  A=89  THEN  BDSUB  2000 

IF  A< >78  THEN  697 

7  "  {CLEAR)  ":  POSITION  13,2:?  "CIE 

U\^*ii\--i*WWi"  :  PDS  ITION  12,4:?  "P 

ROFIT  MARGIN  =";: X=PM : GOSUB  120 

0  :  ?  ;  X  ;  "  X  " 

POSITION  9,6:?  "RETURN  ON  INVES 

TMENT="  ;:  X  =  RI  :  GOSUB  1200:?  X  ;  "  7. 


1200: ? 
12. 20: 


"USEES"  :  POSITION 
COVERAGE  =" ; : X= 
X 


?000 


"CO 


POSITION  18,8:? 
9,  10:?  "BURDEN 
BR: GOSUB 
POSI TIDN 
WaaEES"  ; 
GET  #1  , A 

IF  A=89  THEN  BOSUB 
IF  A< >78  THEN  6  19 
?  "  (CLEAR]  ": CLR  : GOTO  50 
?  " CCLEARJ ": POSITION  10, 


UXSED  GRftHRM  MODE 


POSITION  14,4:?  "STOCK  SYMBOL "; 
: INPUT  B* 

POSITION  11,6:?  "AAA  CORPORATE 
YIELD"  :;  INPUT  AA:AA  =  AA«100 
POSITION  6,8:?  "ESTIMATED  ANNUA 
L  BROWTH  RATE" : POSITION  9,9:?  " 
OVER  7-10  YEARS  (Y/N) " 
SET  #1,A 

IF  A=89  THEN  870 
IF  A07B  THEN  762 

POSITION  3,11:?  "INPUT  CURRENT 
YEAR  FIRST.   SEPARATE  ":POSITION 
10,12:?  "ENTRIES  WITH  COMMAS." 

?    "Eaana 
1=) " 

X(1)=2:X<2)=1:X(3)=0:X 

5)=-2 

FOR  N=l  TO  5:INPUT  R,Y:R(N)=R:Y 

(N)=Y 

IF  YCN)=0  THEN  ?  "    DIVISION  BY 

ZERO, ENTER  ABA  I N " s N  =  N- 1 ; NEXT  N 
YT=YT+Y(N):XY=XY+Y(N)»X<N>:NEXT 

N 
A=YT/5:B=XY/10:NE=A+B*X ( 1 ) 
POSITION  11,20;?  '•rzlTki:km^Tkir*i=i=i 

mxBCB" 

SET  #1,A 

IF  A=89  THEN  GOSUB  2000 

IF  A<  >78  THEN  823 

FDR  N=l  TO  4 

IF  Y(N+1)/Y<N)  AND  Y(N+1)<0  THE 

N  G <N>=  (  Y (N)  -Y (N+1  )  )  /ABB( Y (N+1  ) 

) »100; BT=eT+B<N) : GOTO  835 


EflRHXHGS     PER    SHH 


£4)=-l : X ( 


DP  B32  IF  Y(N  +  1)>Y(N)  AND  Y(N)<0  THEN 

G(N)  =  (Y<N>-Y<N-t-l))/ABSCY(N-t-l))t 

100: ST=GT+6 (N) : GOTO  835 
IH833  G(N>  =  (Y<N)-Y(N+1))/Y(N+1)«100;B 

T=BT+B (N) 
™  835  NEXT  N 
65,84  0  GM  =  GT/4 
Dh  850  FOR  N=l  TO  4  :  GS=  <  G  (  N  ) -BM  )  ■'^2  +  SS  : 

NEXT  N 
Kl  860  SD  =  SQR  <eS/3)  :  GOTO  880 
GD  870  PRINT  "{10  SPACES>  "  ;  :  I NPUT  GM;SM 

=GM» 100 
SFa75  ?  :?  "{11  SPACESJNORMALIZED  EPS" 

; : INPUT  NE 
(10  880  HI=(37.S  +  8.8«  {BM  +  SD)  )  /AA*NE:  L0  = 

(37. 5 +8.8* (BM-SD) ) /AAtNE 
m 885  ME= (37 . 5+8. 8*GM) /AA*NE 
EE  890  ?  "  {CLEAR:  ":  POSITION  10,1:7  "FTTa 

LtAi;<d>^rt:J:l!f:tSMSti]t]=<B"  :  POSI  TIDN   10 

,2:7  "  trfiTril] if:t  ♦  <iTTi=MrinTFM"  ;  S  * 
DP  895  IF  NE<0  THEN  POSITION  2,4:?  "VA 

LUE  UNCERTAIN.   NEG  NORMALIZED  E 

PS":GOTO  910 
«C  9  00  IF  GM  +  SD  =  -4.  2614  DR  GM  +  SD>-4,26 

14  THEN  POSITION  11,4:7  "HIGH  V 

ALUE  =*"; : X=HI :GOSUB  1200:?  X:G 

DTO  904 
NE  902  POSITION  10,4:?  "HIGH  VALUE  UNC 

ERTAIN" 
Et;904  IF  GM5-4.26  14  OR  6M  =  -4.2614  THE 

N  POSITION  11,6;?  "MEAN  VALUE  = 

«";: X=ME: GOSUB  1200:7  X:60T0  90 

8 
NL  906  POSITION  10,6:7  "MEAN  VALUE  UNC 

ERTAIN" 
KL  9  08  IF  GM-SD  =  -4.  2614  DR  GM-SD>-4-26 

14  THEN  POSITION  11,8:7  "LOW  VA 

LUE  =*";:  X  =  LO: GOSUB  1  200:  ?  X:GD 

TO  910 
LB  909  POSITION  10,8:7  "LOW  VALUE  UNCE 

RTAIN" 
CC910  POSITION  4,10:7  "AVERAGE  ANUUAL 
GROWTH  RATE  =";: X =GM : GOSUB  120 

0:7  X  ;  "  7. " 
FL915  POSITION  7,12:?  "STANDARD  DEVIA 

TION  ="  ;  :  X=SD:  BOSUB  1200:7  X  ;  "  7. 

F«  920  POSITION  2.14:7  "GROWTH  RATES  W 

ERE:  " 
n 930  FOR  N=I  TO  4:7  R<N);"    ";:X=B(N 

):  GOSUB     1200:?     X;"7.  ":NEXT     N 
SH931      POSITION      10,20:7     "NORMALIZED     EP 

S     =*";: X=NE: GOSUB     1200:7     X 
FB933     POSITION     11,22:7     "l-.lr><:hJd7tJrVfaa 

H^SZD" 
EC  935     GET     #1,A 

JC  937  IF  A  =  89  THEN  GOSUB  2000 
CD  939  IF  A<>7B  THEN  935 
JA940  ':>     "  {CLEAR}  ":  CLR  :  GOTO  50 
OF  1000  7  "  {CLEARJ  ":  POSITION  13,2:7  "E 


Pfl  1010  ?  :?  "{4  SPACES:F0R  «  1,000  PA 

R  VALUE  BONDS.":-:'  "C4  SPACESJI 

NTEREST  PAID  SEMI-ANNUALLY." 
6N  1020  POSITION  15,7:7  "BOND  NAME  "  ;  :  I 

NPUT  Bt 
JH  1030  POSITION  14,9:7  "COUPON  RATE"; 

: INPUT  C: Cl=C/2 
KO  1040  7  :7  "APPROPRIATE  INTEREST  RAT 

E  FOR  BOND";: INPUT  K:KD=K/2 
ftL  1050  POSITION  8,13:7  "NUMBER  OF  FUL 

L  PERIODS" : POSITION  11,14:7  "T 

D  BOND  MATURITY" 
PK  1055  ?  "{13  SPACES}- "::  INPUT  NY 
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Book  No.  164 


67.95 


!l,l!.P,.  iHJj.lili 

Distributor  and        '"■   '  "   ^    ■      l^*'-^' 

Dealer     inquiries    are  OF  GAMES  ''*^^ 

invited! 


Book  No.  162  S7.95 


LEARIONC  BVOSOMS 


FCTRTH  on  th 
AT 


K'>'>0 


Boole  No.  170  S7.95 


Book  No.  163  G9.35  > 


Boolt  No.ie3S9.95 


4  Book  No.  176  S9,95 


BOOKS  for  ATARI  400/600XL/800XL 
1200XL 

ATARI  BASIC  -  Learning  by  Usinj 
An  excellent  book  for  the  beginner. 
Many  short  programs  and  learning  exer- 
cises. All  Important  features  of  the 
ATARI  computers  are  described  (screen 
drawings,  special  sounds,  kevs,  paddles, 
joysticks,  specialized  screen  routines, 
graphics,  sound  applicaiions,  peeks,  pokes, 
and  special  stuff). 

Order-No.  164  E7.95 

Games  for  the  ATARI  Computer 
This  book  describes  advanced  program- 
ming techniques  like  playcr-missile- 
graphics  and  use  of  the  hardware-registers. 
Contains  many  ready  to  run  programs  in 
BASIC  and  one  called  GUNFIGHT  in 
machine  language. 
Order-No.  162  S7.95 

Mow  to  program  your  ATARI  in  6502 

Machine  Language 

Introduction  to  machine  language  for  the 

BASIC  programmer. 

Order-No.  169  S9.95 

FORTH  on  the  ATARI  -  Learning  by 
Using 

Introduction,      programs,     applications, 

learning  exercises. 

Order-No.  170  S7.95 

All  programs  from  book  No.  1 70  on  disk. 
Order-No.  7319  £22.00  onlyl 

A  Look  into  the  Future-ASTROLOGY 
on  your  ATARI  800.  How  to  calculate 
your  own  horoscope.  Including  listing  of 
the  program, 

Order-No.  171  69.95 

HACKERBOOK  for  your  Atari  computer 
Tips+tricks-Very  important  subroutines 
in  6502  machine  language.  How  to  make 
bootable  cassettes,  disks,  and  EPROMs. 
Complete  construction  article  and  soft- 
ware on  how  to  build  an  EPROM  burner. 
Order-No.  172  89.95 

SftrtALL  BUSINESS  SOFTWARE  FOR 
ALL  ATARI  COMPUTERS 

SUPERMAIL   ISOO  addresses  on  I  disk) 
Completely  written  in  FORTH.  Comes  on 
autoboot  disk.  No  cartridge,  no  DOS,  no 
FORTH  language  required. 
Ofdar-No.  7312  S49.00 

SUPERIIWENTORY  (1000  items  p.disk) 
Completely  written  in  FORTH,  Same  as 
above.  (Disk  only) 
Ordar-No.  7320  S49.00 

BUSIPACK-I  (written  in  FORTH).  Com- 
plete order  entry,  inventory,  mailing  and 
invoicing.  (Disk  only). 
Order-No.  7313  898.00 

Microcomputer  Hardware  Handbook 
Order-No.  29  S  14.95 


ATCASH 

Convert  your  ATARI  800  into  a  powerful 
cash  register.  {Disk  only}. 
Order-No.  7303  649.95 

Invoicing  program  in  BASIC 
Order-No.  7201  (CI  S29.95 

Order-No.  7200  (Dl  S39.95 

Mailing  Lilt  in  BASIC 
Ordar-No.  7212  (C)  S19.95 

Order-No.  7213  (D(  624.95 

Inventory  control  in  BASIC 
Order-No.  7214  (C)  819.95 

Order-No.  7215  (D)  624.95 

SOFTWARE  IN  MACHINE  LANGUAGE 
FOR  ATARI 
ATMONA-1 

Machine     language     monitor. 
Order-No.  7022  (C)  619.95 

ATMONA-2 

This  is  a  tracer  (debugger!  that  lets  you 
explore  the  ATARI  HAM/ROM  area. 
You  can  stop  at  previously  selected 
address,  opcode,  or  operand.  Also  very 
valuable  In  understanding  the  micropro- 
cessor. At  each  stop,  all  registers  of  the 
CPU  may  be  changed. Includes  Atmona-t. 
Order- No.  7049  cassette  849.95 
Order- No.  7050  disk  854.00 

ATMAS 

Macro -Assembler  for  ATARI-8(XJM8K. 
One  of  the  most  powerful  editor 
assemblers  on  the  market.  Versatile  editor 
with  scrolling.  Up  to  17k  of  source-code. 
Very  fast,  translates  5k  source-code  in 
about  5  seconds.  Source  code  can  be 
saved  on  disk  or  cassette  (Incl.Atmona-ll. 
Order-No.  7099  disk  889.00 

Order-No.  7999        canridge       8129.00 
ATMS  APPLICATION  DISK 
All  programs  and  machine  language  sub- 
routines from  Book  No. 169  on  disk. 
Order-No.  7311  820.00 

ATAS 

Same   as   ATMAS    but  without   macro- 
capability.  (32K  and  48K  RAM) 
Order-No,  7098  649.95 

ATEXT-1 

This  wordprocessor  is  an  excellent  buy 
for  your  money.  It  features  screen  oriented 
editing,  scrolling,  string  search  (even 
nested),  left  and  right  margin  justification. 
Over  30  commands.  Text  can  be  saved  on 
disk  or  cassette. 

Order-No,  7210  cassette  829.95 
Order-No.  7216  disk  834,95 

Order-No.  7217         cartridge         669.00 


FORTH  for  the  ATARI 
FORTH  from  ELCOMP  PUBLISHING, Inc. 
is  an  extended  Fig-Forth-version,  Editor 
and  I/O  package  included.  Utility  package 
includes   decompiler,  sector  copy.  Hex- 
dump  (ASCIIl,  ATARI  filehandling.  total 
graphic  and  sound,  joystick  program  and 
player  missile.  Extremely  powerful! 
Order-No.7055(Dl  reg,899.00sale  839.95 
Floating  point  package  with  trigonometric 
functions  (0  -900|. 

Order-No,  7230  disk  £29,95 

Learn  FORTH 

A  subset  of  Fig-Forth  for  the  beginner. 
On  disk  (32k  RAM)  or  cass.  (16k  RAMI. 
Order-Na.7053  reg.  79 .00  sale  £  1 9 .95 
HARDWARE-ADDONs  for  ATARI 
PRINTER  INTERFACE 
This  construction  article  comes  with 
printed  circuit  board  and  software.  You 
can  use  the  EPSO^J  printer  without  the 
ATARI  printer  interface.  (Works  with 
gameport  3  and  4), 

Order-No.  7211  819.95 

300   Baud   serial   Interface   (RS232-t'5VI 
Software  with  connector  and  construc- 
tion article. 
Order-No.  7291  £19.95 

EPROM  BURNER  for  ATARI  400/800 
KIT.  Printed  circuit  board  incl.  software 
and  extensive  construction  article. 
Order-No,  7292  849.00 

EPROM  BOARD  (CARTRIDGE) 
Holds  two  4k  EPROMs  (2532).  EPROMs 
not  included. 

Order-No.  7043  629.95 

EPROM  BOARD  KIT 
Same  as  above  but  bare  board  only  with 
description. 

Order-No.  7224  614.95 

Astrology  and  Biorhythm  for  ATARI 
Order-Nol  7223        0/c  829.95 

Birth  control  with  the  AtarilKnaus  Oginol 
Order-No.  7222  disk  only!  £29.95 
The  APPLE  in  your  Hand,  BRAND  NEWI 
Book  includes  introduction  to  6502 
(Machine  Language  and  FORTH.  BASIC 
programs  never  published  before! 
Order-No.  178  (200  pages)  612.95 
CP/M  -MBASIC  and  the  OSBORNE 
computer 

Business  Applications,  compl.  listings  of 
mailing    list,    datablock,    inventory,    in- 
voicing and  more. 
Ordor.No.  177  S9.95 


SUPERSOFTWARE  f.the  Commodore-64 
BLIZTEXTI  -  The  best  wordprocessor 
for  the  C-64  in  the  whole  universe.  In- 
cludes terminal  software  for  electronic 
mail. 

Order-No.  4965(62  pages  manual)£8g,00 
MACROFIRE  -  Editor/Assembler  for 
the  C-64 

The  best  macroassembler  you  can  buy! 
Order-No.  4963  E89.00 

SUPERBOOKS  for  your  C-64 
The  Great  Book  of  Games,  Vol.  I 
46   programs    for    the    Commodore'64. 
Order-No.  182  S9.95 

Programs  from  this  book  on  disk  819.95 
MORE  ON  THE  SIXTVFOUR 
Tips,   tricks,   hints,  very  important  sub- 
routines. 

OrderNo.  182  69.95 

Programs  from  this  book  on  disk   £19.95 
How    to     program     in    6502    Machine 
Language  on  your  C-64 
Order-No.  184  812.95 

Cammodore-64  Tune-up,  Vol-  I 
How  to  expand  your  C-64. 
Order-No.  185  £12.95 

Small  Business  Programs  for  the  C-64 
Ordsr-No,  186  612.95 

HARDWARE  ADD-ONs  for  your  C-64 
Parallel  printer  interface,  KIT 
Order-No.  4990  619.95 

Universal  Experimenter  Board 
Ordcr.No.4970  £9.95 

Expansion  Board  (holds  4  exp.  boardi) 
Order-No.  4992  £29.95 

BOOKS,     SOFTWARE,     ADD-ONi    for 
VIC-20.  APPLE  II,  OSBORNE,  TIMEX 
-t-  OS!  computers 
Tricks  for  VICsjBook) 
Order-No.  176  89.95 

Universal  Experim.board  for  the  VIC-20 
(Save  money  with  this  great  board).  This 
board  plugs  right  into  the  expansion  slot 
of  the  VIC-20. 

Order-No.  4844  reg.  819,95  sale  £9.95 
Programming  in  BASIC  and  machine 
language  on  the  ZX-81  182)  TIMEX1000 
Order-No.  174  (book)  89.95 

The  Custom  APPLE  +  Other  Mysteries 
A   complete   guide    to   customizing  the 
APPLE  software  and  hardware. 
Order-No.  680  624.95 

We  also  stock  the  boards  which  are  used 
in  the  book  No.  680  (bareboardsl. 


PAYMENT:    ChB*.    monev   ord.i,   VISA,    MASTER 

CARD,  Eurochick,  ACCESS,  Inteibink 

Prepaid  ordari  idd  £3.50  for  ihipping  (USAl 

*S JX)  hanetlina  for  C.O.O. 

All   OTtJiirs  outMde  USA:  add  15%  shipping,  Califomiil 


Elcomp  Publishing,  Inc,     S3  Red  rock  Lane.     Pomona  CA  91766,     Phone;  (714)  623-8314,     Telex:  29  81  91 


ATAB I  ll  I  r*g.  Indmurk  of  ATARI  Inc.,  VIC-20  ♦  Commodo™-fl4  in  triitomirki  of  Commodor.  BuiiiMH  Mnehintj,  APPLE  is  a  rq.  tridicTurk  of  APPLE  Compulir.  Inc.,  CP/M  ii  »  r«g.  lrtd«m.  of  Digitil  Ritwrdi 
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Hi  1 1: 


IST=C1 
POSIT  I 
S  UNT  I 

"  INTE 
PDSITI 
USE  0. 
?  "  t  1  0 

THEN 
MUCH  A 
PA= ( 1- 
PF=1  /  ( 
V=IST* 
V=  < V+I 
POSITI 
*;  "  = 
POSITI 


1 1000 

ON  7,1 
L  MEXT 
REST  P 
ON  12  , 

SPACE 

S    THE 
( 1 /  t  1  + 
1+KD)  ■'- 
PA+ 100 

ST )  »  £  1 


6:?  "NUMBER  OF  DAY 
'■  :  POSITION  11,  17:7 
AYMENT.  '■ 
18:?  "IF  UNKNOWN, 


PRINT: INPUT-Stock 
INPUT"LonQ  term  U 


symbol " ; S* 

S.  Treasury  rate"; 


10, 
:  X  = 

1  1  . 


1  123 
1124 
1  12S 
1  130 
1200 


if.   1  300 


1310 

;000 

2010 

;020 
;030 
;040 

204S 
20S0 
2060 
2070 
BC  2080 

nn  2090 

t.d  2  10  0 


KF 
JD 
HI 
IB 
BH 
GO' 
DL 
IJ 
Ff 


GET  *»  1 
IF  A  =  8 
IF  A <  > 
"^  "{CL 
X=INT  ( 
ETURN 
OPEN  # 
P:  "  : RE 
RETURN 
PRINT 
FDR  Y  = 
FOR  X  = 
POSITI 
GET  #2 
IF  G  >  1 
PUT  *3 
NEXT  X 
PRINT 
NEXT  Y 
POSI TI 
RETURN 


ON 
t" 
ON 
H" 

9  THEN 
7B  THE 
eAR>  "  : 
(  ( 10 "2 

2,4,0, 
TURN 


S> 
PR 
CO 
KD 
NY 
0* 
/  ( 
20 
V: 


" ; : INPUT  D : I F  D=0 

ICE  MAY  VERY  AS 

UPON" 

>  -NY) ) /KD 

PF:  IF  D<  >0  THEN 
l+t<;D>)^CD/lB3) 

"PRICE  OF  ";B 
60SUB  1  200:  ?  X 


"  \-^-n:s^^:ki-.m 


#3; CHR« ( 10) 

0  TO  23 

2  TO  39 

ON  X  ,  Y 

-G 

27  THEN  6=G-12S 

,G 

#3 

ON  0,0 


Program  3:  PC  And  PC]r  securities  Analysis 

10  DEF  SEG=0:POKE  1047, PEEK (1047)  OR  64: 

WIDTH  40: KEY  OFF 

20  CLS:LDCATE  12, 1 1 , 0: PRINT"Securi ties  A 

nal ysis" 

30  FOR  1=1  TO  1000  :  NEXT  I 

40  CL5:DEF  FNR  (  X>  =INT  <  (  ( lO'-Z)  *X) +.  5)  /  ( 10 

50  COLOR  0,7: LOCATE  3, IB: PRINT"Menu" : COL 

OR  7,0:  LOCATE  6, 1 : PRINT" (Use  decimals  t 

o  express  percentages. " 

55  PRINT"Dmit  $  signs  and  keep  units  equ 

i  valent . ) " 

60  LOCATE  li,8:PRINT"ChDOse  1,  2,  3,  or 

4:" 

62  LOCATE  1 4, 3: PRINT" 1 )  Stock  valuations 

":LOCATE  16, 8: PRINT"2)  Fundamental  analy 

sis" 

64  LOCATE  IS, 8: PRINT"3)  Bond  valuation": 

LOCATE  20,a:PRINT"4)  End" 

70  A5=INKEY$ 

75  ON  VAUfi*)  GOTO  200,600,1000,3000 

90  GOTO  70 

200  CLS:LDCATE  a,9:PRINT  "Choose: ": COLOR 
0,7: LOCATE  12, 10: PRINT" < 1 )  For  Gordon  m 

odel": LOCATE  16, 10: PRINT" (2)  For  Graham 
model ": COLOR  7,0 

201  A$=INKEY$ 

202  ON  VAL(A*)  GOTO  205,750 

204  GOTO  201 

205  CLS:COLOR  O,7:L0CATE  1 , 14: PRINT"6ord 
on  model": COLOR  7,0 

62     COMPUTEt     April  1984 


QTDWt 


284 

286 

290 

295 

re"; 

297 


earnings  per  sha 
0,7: LOCATE  12,1: 


BOSUB  2000 
N  1  123 

CLR  :GOTO  50 
)  «X)  +0.  5)  /  (  10-^2)  5  R 


:  OPEN  #3.8,0,"   -:.^, 


210 

220 

RF 

230  INPUT"Beta";B:KI=RF+B*.055 

240  INPUT"Current  di vi dend " ; D (0) : IF  D(0) 

=0  THEN  COLOR  0,7:LDCATE  12, 1 : PRINT"Pr i c 

e  indeterminate": COLOR  7,0:FDR  1=1  TO  20 

00: NEXT  I : GOTO  435 

280  PRINT"Estimated  average  annual 

h  rate     (V/N) "; 

232  A$=INKEY$ 

IF  A$="Y"  THEN  340 

IF  A*="N"  THEN  295 

SOTO  282 

PRINT: INPUT "Cur rent 

EPS 

IF  EPS=0  THEN  COLOR 
PRINT"Price  i ndetermi nate" : COLOR  7,O:F0R 

1=1  TO  2000: NEXT  I : GOTO  435 
300  INPUT"Current  net  income" ;NI 

INPUT "Stockholders  equity ";NW 

R0E=NI/NW:RET=1-CD(0) /EPS> 

6=RET«R0E:G0TD  400 

INPUT  G 

PRINT"Browth  constant  (Y/N)"; 

A$=INKEY$ 

IF  A$="Y"  THEN  400 

IF  A$="N"  THEN  470 

GOTO  352 

Di=D(0) * (1+6) 

IF  KI=<G  THEN  470 

P=D1/(KI-G) 

DEF    FNR(X)=INT(  (  (10'-2)  *X)+.5>  /  <i0--2> 
0,  7;  PRIh4T"GDrdon    model     v 
FNR(P) : COLOR    7,0 
PRINT" 1)     Menu 
3)     Gordon    Model  4)    6ra 


10 
320 

30 
340 
350 

354 
356 
360 
400 
410 
420 


430 

433  PRINT: COLOR 
alues  "S*"  at  * 
435  LOCATE  20, 1 
2)  Print": PRINT 
ham  Model " 

A$=INKEV* 

IF  VAL(A*)<1  OR  VAL(A*)>4 
A$="l"  THEN  CLEAR: GOTO 
A*="2"  THEN  CLEAR; 


IF 
IF 


440 
442 
445 
450 

440 
455  IF 
460  IF 
470  PRINT 
th  period 


THEN  440 
40 
603UB  20O0:GOT0 


A$="3"  THEN  CLEAR: GOTO  205 
A$="4"  THEN  CLEAR: GOTO  750 

F"RINT"Estimated  length  o-f  grow 
in     years" 
480  INPUT  N:N=N-i 
500  FOR  1=0  TO  N:D(I+1)=(D(0)* (1+B)- (I+l 
)  )  *(1/  (1+KI)'-  (I  +  l)  ) 
520  DI=DI+D(I+lJ 

530  DMAX=D(0) * (l+G)" (I+l) ;NEXT  I 
550  PRINT"Subsequent  growth  rate?": PR  INT 

" (must  be  <"KI") "; 
560  INPUT  NG 

570  C= ( DNAX * ( 1 +NG ) / ( K I -NB ) ) 
530  P=C« (1/(1 +K I )  -(I ) ) +DI : GOTO  430 

600  CL5: LOCATE  1,12: COLOR  0, 7 : PRINT"Data 
input  stage": COLOR  7,0 

601  PRINT: INPUT  "Stock  symbol "; S$ 
"Average  market  price"; MP 
"Net  sales"; NS 
"Cost  o-f  goods  sold";CG 
"Interest  expense";! 
"Income  before  tax " ; IB: E=IB+I 
"Income  tax";TP 
"Net  income" ;NI 
"Current  assets" ;CA 
"Current  1 i abi 1 i ty " ; CL 


602 

INPUT 

603 

INPUT 

604 

I NPUT 

605 

INPUT 

606 

INPUT 

607 

INPUT 

608 

INPUT 

609 

INPUT 

610 

INPUT 

611  INPUT  "Total  assets" ;TA 

612  INPUT  "Retained  earnings"; RE 

613  INPUT  "#  shares  outstandi ng" ; 5H 

614  INPUT  "Long  term  debt";LT 

615  INPUT  "Inventories"; IV 

616  INPUT  "Sinking  fund  (0  if  unknown)"; 
SF: IF  BF=0  THEN  SF=.05tLT 

6ia  PRINT:PRINT"Print  entries  (Y/N>  ?"; 

619  ft*=INKEY* 

620  IF  A*="Y"  THEN  GOSUB  2000 

621  IF  AS="N"  THEN  625 

622  GOTO  619 

625  Xl=( <CA-CL) /TA) *100: X2-(RE/TA>  «100: X 
3=(E/TA)*10O:X4=( (BH*MP) / (LT+CL5 )«100:X5 
=NS/TA 

630  Z=.012«Xl+.014*X2+.033*X3+.006*X4+.9 
99«X5 

635  TR=1-(TP/IB) 

640  CR=CA/CL:PM=NI/NS«10O:RI=X5*PM:BR=E/ 
( (I)+(SF/TR) ) : IT=CG/IV 

650  CLS: COLOR  O, 7: PRINT"Fundamental  Anal 
ysis  -for  "B*:  COLOR  7,0 

660  PRINT; PRINT"Bankruptcy  Analysis  for 
"B£"  yields":PRINT"a  score  of  "FNR(2)"." 
670  PRINT" (>2. 68  non-bankrupt,  <1.81  ban 
krupt " 

675  PRINT  "l.bx-2.6a  uncertain)" 
680  PRINT: PRINT  TAB C6) ;: COLOR  0,7; PRINT" 
Liquidity": COLOR  7, 0: PRINT"Current  ratio 
=  "FNR(CR) 

690  PRINT  TAB <6> ;: COLOR  0, 7: PRINT"Acti vi 
ty": COLOR  7, 0: PRINT"Asset  turns="FNR ( X5) 
: PRINT" Inventory  turns="FNR ( IT) 
700  PRINT  TAB(4) ; :COLOR  0, 7: PRINT"Praf i t 
ability":CaLOR  7, 0: PRINT"Prof i t  margin=" 
FNRCPM)  "•/.":PRINT"Return  on  inve5tment  =  "F 
NR(RI)  "7." 

710  PRINT  TAB(8) ; iCOLOR  0,7:PRINT  "Risk" 
: COLOR  7,0:PRINT"Burden  cDverage="FNR (BR 
) 

720  GOTO  435 

750  CLS: COLOR  0, 7: PRINT"Revi ssd  Graham  M 
odel": COLOR  7, O: PRINT: INPUT"Stack  symbol 
";S* 

755  INPUT"AAA  corp  yield" ; AA: DEF  FNR(X)= 
INT(  C  (lO--'^)  *X)+.5)  /  (10'--2)  :fiA=AA*100 
760  PRINT"Estimated  annual  growth  rate  o 
ver  7-10   yrs  <Y/N)  "; 
762  A*=INKEY* 
764  IF  A$="Y"  THEN  870 
766  IF  A$="N"  THEN  780 
770  GOTO  762 

780  PRINT"List  current  yr  first  (Separat 
e  entries" :PRINT"with  commas) ": COLOR  0,7 
:PRINT"year  EPS  (Earnings  per  share)" 
: COLOR  7,0 

790  X (1)=2:  X (2)=1: X (3) =0: X (4) =-1 : X (5) =-2 
800  FOR  N=l  TO  5: INPUT  R(N),Y(N) 
a05  IF  V<N)=0  THEN  PRINT"Di vi si  on  by  zer 
o  -  Enter  again" : N=N-1 : GOTO  BIS 
810  YT=YT+Y(N) 5XY=XY+V(N)*X(N) 
815  NEXT  N 
820  A=YT/5:B=XY/10:NE=A+3*X (1) 

830  FOR  N=l  TO  4 

831  IF  Y(N+1)<Y(N)  AND  Y(N+i)<0  THEN  G(N 
)=<Y(N)-y (N+1) ) /ABB(Y(N+1) ) «100: GT=GT+6 ( 
N) :GOTO  S35 

832  IF  Y(N+1>>Y<N)  AND  Y(N)<0  THEN  G(N)= 
(Y(N)-Y(N+1) )/ABS(Y(N+l) ) *100:  6T=6T+G (N) 


:GOTQ  835 

833  G(N)  =  (Y(N)'-Y(N+1>  )  /Y(N+1  )  *100:G1=GT+ 

6(N) 

835  NEXT  N 

840  GM=GT/4 

850  FOR  N=l  TO  4: GS= (G (N) -GM)  ■-2+GS:NEXT 

N 

B60  SD=SQR ( GS / 3 ) : GOTO  880 

870  INPUT  6M:6M=GM«100 

875  INPUT"NormalizBd  Earnings  per  share" 

;NE 

B80  HI=(37.5+8.8*(GM+SD) ) / AA*NE: L0= (37. 5 

+8.8* (6M-5D) ) /AA»NE: ME= (37. 5+8. B*GM) /AA« 

NE 

390  CLB; COLOR  O, 7: PRINT"Revised  Graham  M 

odei":PRINT"CalculatiDn5  For  "3$: COLOR  7 

,0: PRINT 

895  IF  NE<0  THEN  PRINT  "Value  uncertain. 

Neg.  normalized  EPS.":GOTD  910 
900  IF  GM+SD=>-4.2614  THEN  PR I NT "High  va 
lue=$"FNR(HI) rGDTO  904 
902  PRINT"Hi  value  uncertain" 
904  IF  GM=>-4.2614  THEN  PRINT"Mean  value 
=$"FNR(ME) :G0TO  908 
906  PRINT"MBan  value  uncertain" 

908  IF  GM-BD=>-4.2614  THEN  PRINT"Low  Val 
UB=«"FNR(LD) iGDTO  910 

909  PRINT"Low  value  uncertain" 

910  PRINT"Avg.  annual  growth  rate  for  "S 
$"  =  "FNR  (GH)  "■/.":  PRINT"Standard  Deviation^ 
"FNR(SD)"7." 

920  PRINT"Growth  rates  were: " 

930  FOR  N=l  TO  4:  PRINT  R  (N)  ,  FNR  (G  (N)  )  "7." 

:NEXT  N 

935  PRINT"Normalized  EPS=$"FNR (NE) 

940  GOTO  435 

1000  CLS: LOCATE  l,lO:C0L0R  O, 7:PRlNT"Bon 

d  valuation": COLOR  7,0 

1010  PRINTiPRINT  "For  $1,000  par  value  b 

onds.  Interest ": PRINT"paid  semi-annually 
II 

1015  PRINT 

1020  INPUT "Band  name";B* 

1030  PRINT: INPUT  "Coupon  rate" ; C: CI=C/2 

1040  PRINT: INPUT" Appropriate  interest  rs 

te  for  bond";K:KD=K/2 

105O  PRINT: PRINT"Number  of  full  periods 

to  bond  maturity": INPUT  NY 

1060  IBT=CI«1000 

1070  PRINT: PRINT"Number  days  until  next 

interest" : PRINT"payment.  If  unknown,  use 

O.  " 
1080  INPUT  D:IF  D=0  THEN  PRINT: PRINT"Pri 
ce  may  vary  as  much  as  the  coupon." 
1090  PA=(1-(1/(1+KD)-'NY)  )/KD 
llOO  PF=i/ (1+KD)  "NY 

1110  V=IST«PA+lO00*PF:  IF  DOO  THEN  V=<V+ 
IST)«(1/  (1+KD)  )'-(D/lS3) 

1120  COLOR  0,7:PRINT:PRXNT"Price  of  "B$" 
=*"FNRCV): COLOR  7,0 
1130  GOTO  435 

2OO0  LOCATE  23, 1 : PRINT"Press  CShift-PrtS 
c>  to  print  entries. ":PRINT"Press  CENTER 
>  when  printer  is  done."; 

2003  A$=INKEY*: IF  A4<>CHR*(13)  THEN  2003 
2005  LOCATE  23,1: PR I NT  STRING* < 38, 32) : PR 
INT  STRING* (38, 32) ; 
2010  RETURN 
3000  END  © 
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Computers  And  Society 


David  D.  Thorn  burg.  Associate  Editor 


Beyond  BASIC 


One  topic  that  can  always  be  counted  on  to  fill 
my  mailbox  with  angry  responses  is  the  replace- 
ment of  BASIC  by  other  languages.  Based  on  the 
responses  I  received  last  March,  many  personal 
computer  users  seem  convinced  that  BASIC  is  the 
only  computer  language  we  will  ever  need,  and 
that  attempts  to  replace  BASIC  with  something 
else  will  somehow  destroy  the  nature  of  personal 
computing. 

If  I  had  a  dime  for  each  letter  I  receive  telling 
me  how  "good"  BASIC  is,  1  could  probably  retire 
soon.  To  pick  just  one  example  of  blind  support 
for  BASIC,  I  overheard  a  salesman  at  a  major  com- 
puter retailer  tell  a  customer  that  he  should  buy 
Logo  for  his  kids  and  use  BASIC  for  his  own 
programming.  After  the  confused  (and  seriously 
misinformed)  customer  left,  I  asked  the  salesman 
if  he  knew  what  he  had  done.  I  told  him  that  he 
might  as  well  have  said  that  the  customer  should 
buy  a  Porsche  for  his  kids  and  a  rusty  bike  for 
himself. 

I  think  one  reason  people  get  so  defensive 
about  BASIC  is  that  they  don't  want  to  feel  that 
their  own  investment  of  time  and  energy  has  been 
wasted.  This  is  a  natural  and  completely  under- 
standable response. 

Not  A  Wasted  Investment 

It  is  important  that  BASIC  users  realize  that  their 
investment  won't  be  wasted  as  they  learn  new 
languages.  A  knowledge  of  BASIC  (or  any  other 
computer  language)  not  only  eases  the  learning 
of  new  languages,  but  also  helps  the  user  grasp 
the  features  of  new  languages. 

I  know  this  to  be  true  because  I,  too,  was 
once  a  BASIC  enthusiast.  My  initial  enthusiasm 
for  BASIC  arose  from  my  reluctance  to  learn 
machine  language  (I'm  really  not  a  bit-twiddler  at 
heart),  and  from  the  absence  of  any  other  high- 
level  language  for  personal  computers. 

While  the  use  of  BASIC  on  personal  com- 
puters is  largely  an  accident  of  history,  it  offered 
the  beginning  personal  computer  user  a  smorgas- 
bord of  features — a  little  arithmetic,  a  little  string 
manipulation,  a  little  screen  formatting,  etc.  In 
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fact,  BASIC  was  designed  to  be  a  jack-of-all-trades 
(and  a  master  of  none).  When  compared  with 
FORTRAN  (the  language  from  which  BASIC  was 
derived),  BASIC  was  clearly  the  better  choice  for 
first-time  programmers — especially  if  they  were 
not  going  to  become  computer  scientists. 

Freedom  Of  Choice,  Finally 

But,  like  almost  everything  else,  languages  do  not 
stand  still.  Since  1978,  quite  a  few  alternatives  to 
BASIC  have  appeared  on  personal  computers. 
One  of  the  highlights  of  the  personal  computer 
industry  occurred  when  Atari  decided  to  sell  com- 
puters without  a  built-in  language.  The  freedom  of 
choice  this  offered  the  user  was  most  refreshing. 
Unfortunately,  most  other  manufacturers  of 
home-based  personal  computers  still  give  BASIC 
"free"  (you  pay  for  it — don't  worry  about  that!) 
with  the  purchase  of  the  computer. 

As  I  became  more  interested  in  languages 
like  PILOT,  Logo,  and  PROLOG,  I  kept  trying  to 
identify  one  aspect  of  these  languages  that  made 
them  more  appealing  to  me  than  BASIC.  On  the 
surface  they  are  all  quite  similar;  Programs  in  all 
four  of  these  languages  are  collections  of  words 
and  symbols.  Each  of  these  languages  has  a  vo- 
cabulary and  a  grammar,  and,  on  this  basis,  one 
may  be  tempted  to  argue  that  all  languages  are 
equivalent. 

But  this  is  not  true.  Without  trying  to  be  too 
philosophical,  there  is  much  to  be  said  for  the 
idea  that  the  very  nature  of  the  things  we  think 
about  is  influenced  by  the  language  in  which  we 
do  our  thinking. 

Languages  Encourage  Versatility 

When  this  idea  is  applied  to  the  computer,  it 
suggests  that  the  types  of  programs  we  create  are 
influenced  by  the  computer  languages  we  use. 
This  implies  that,  to  be  a  versatile  programmer, 
one  benefits  from  knowing  several  computer  lan- 
guages. From  my  own  experience,  I  find  that  this 
is  true.  I  use  Logo  for  most  of  my  mathematical 
calculations,  PILOT  for  text  programming,  and 
PROLOG  for  data  base  programs. 
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with  Micro  Learn's  teach-and-test         p 
instructional  programs.  •-"-' 


Learn  more  and  learn  faster.  Other 
tutorials  just  test  you;  Micro  Learn's 
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Math  SAT  increases  understanding  of 
arithmetic,  algebra,  geometry,  ratios, 
probabilities,  exponents,  square  roots, 
fractions,  quantitative  comparisons,  negative 
numbers,  least  common  multipliers,  graphs. 
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But  my  desire  to  be  multilingual  was  not  what 
pulled  me  from  BASIC.  Until  recently,  I  had  only 
a  vague  idea  why  I  preferred  other  languages,  or 
why  I  preferred  parts  of  these  languages  over 
other  parts. 

1  think  I  have  finally  found  the  key  to  under- 
standing the  fundamental  differences  between 
various  computer  languages,  and  their  "ease  of 
use"  by  casual  programmers.  Computer  programs 
can  be  classified  as  either  prescriptive  or  descriptive. 
A  prescriptive  program  (or  procedure)  is  one  that 
tells  the  computer  how  to  perform  a  computational 
task,  and  a  descriptive  program  or  procedure  tells 
the  computer  what  task  to  perform,  without 
specifying  how  it  is  to  be  done. 

Fundamenfal  Distinctions 

To  my  way  of  thinking,  these  distinctions  are 
fundamental.  By  examining  various  computer 
languages  on  the  basis  of  their  prescriptive  or 
descriptive  nature,  we  can  begin  to  see  why  some 
languages  (or  parts  of  languages)  may  be  per- 
ceived as  "friendlier"  than  others. 

For  example,  the  turtle  graphics  component 
of  Logo  is  so  popular  that  many  Logo  users  remain 
blissfully  unaware  that  Logo  contains  a  very  pow- 
erful list  processing  environment  suitable  for 
many  exciting  programming  tasks.  On  closer 
examination,  one  finds  that  turtle  graphics  pro- 
grams consist  largely  oi  descriptio}ts  of  the  tasks 
the  turtle  is  to  perform. 

Many  list  processing  programs,  on  the  other 
hand,  consist  mainly  of  prescriptions  telling  the 
computer  how  to  manipulate  the  text  or  other  data 
on  which  the  program  operates.  In  PILOT,  the 
match  command  (M:)  allows  the  programmer  to 
search  for  any  set  of  characters  or  words  inside  a 
user's  response  without  having  to  specify  how 
this  search  is  done.  Neither  BASIC,  Logo,  nor 
PROLOG  has  this  feature.  The  match  command 
is  descriptive,  not  prescriptive. 

The  entire  predicate  calculus  portion  of 
PROLOG  is  descriptive.  Not  surprisingly,  this 
aspect  of  PROLOG  is  starting  to  be  explored  by 
children  with  the  ease  and  facility  of  Logo's  turtle 
graphics. 

Easy  To  Learn  And  Powerful 

This  all  suggests  that  descriptive  languages  are 
easier  to  learn  than  prescriptive  languages.  Based 
on  the  kinds  of  programs  that  can  be  created  with 
PILOT,  Logo,  and  PROLOG,  it  is  also  clear  that  a 
descriptive  environment  is  no  less  powerful  than 
a  prescriptive  one. 

While  all  languages  presently  used  with  per- 
sonal computers  have  prescriptive  components,  it 
is  exciting  to  imagine  the  creation  of  purely  de- 
scriptive languages.  By  freeing  us  from  the  ardu- 
ous task  of  telling  the  computer  hozv  to  perform 
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the  chores  we  want  it  to  carry  out,  we  become 
free  to  tell  the  computer  what  we  want  it  to  do  in- 
stead. 

This  descriptive  component  of  newer  lan- 
guages will,  more  than  anything  else,  allow  us  to 
move  well  beyond  BASIC  in  the  future.  1  once 
predicted  that  BASIC  would  be  displaced  as  the 
language  of  choice  for  nonprofessional  pro- 
grammers within  five  years.  One  year  has  passed, 
and  there  are  indications  that  this  prediction  is 
still  on  target. 

I  realize  that  many  of  you  may  remain  un- 
convinced. You  should  try  PILOT  or  Logo  for  a 
while  (1  would  encourage  you  to  try  a  nonpro- 
cedural language  like  PROLOG,  but  it  is  still  hard 
to  find  in  the  United  States).  Once  you  have  spent 
a  few  days  away  from  BASIC,  let  me  know  what 
you  think.  Remember  that  there  is  no  perfect  com- 
puter language,  but  PILOT,  Logo,  and  PROLOG 
may  be  pointing  to  a  new  model  for  computer 
programming  that  will  make  the  power  of  the 
computer  accessible  to  all  who  care  to  use  it. 

David  Thornburg's  other  column  "Friends  of  the 
Turtle"  will  reappear  later  this  year.  © 
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It's  a  rare  teacher  who  can  make  a  child  think  learnine's  fun. 
But  we've  found  several  of  them.  And  they  make  Monkeymath™  more  fun  than 
your  child  ever  dreamed  an  educational  game  could  be. 

Of  course  Monkeymath  helps  give  your  child  a  better 
understanding  of  addition,  subtraction,  multiplication  and 
division.  That  s  the  pariyou'll  like. 

But  the  part  your  c/t/W  will  like  is  Monkeymath's  arcade- 
type  action  and  animation,  three  skill  levels  and  scoring.  So,  like 
any  good  arcade  game,  kids  just  can't  stop  playing  it. 

In  fact,  in  a  recent  issue  of  Antic  magazine,  David  Plotkin 
called  Monkeymath  "...  one  of  the  most 
entrancing  educational  games  ever  writ-        ^,>^,^  _  — 
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Monkeymath 
by  Dennis  Zander 


ten."  (And  Monkeynews^'-and  Monkeybuilder,™  our  soon 
to  be  released  reading  comprehension  and  word  recognition 
games  will  be  every  bit  as  entrancing.) 

So  Monkeymath  does  more  than  help  your  child  under- 
stand math— it  teaches  him  that  learning  can  be  fun. 

And,  as  you  can  see,  you  don't  find  teachers  like  that 
just  anywhere. 

Monkeymath™ Monkeynews'"  and  Monkeybuilder'" —a.  new  educa- 
tional series  from  Artworx?  For  the  Commodore  64,  Atari,  Apple  and 
VlC-20  computers.  Cassette/Diskette  from  $23.95.  Artworx  Software 
Co.,  Inc.,  150  North  Main  St.,  Fairport,  N.Y.  14450.  For  a  free  catalog  of 
Artworx  Software  write  or  call  800-828-6573. 

So  you  can  play. 
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Size,  Speed,  Or  Clarity 


As  you  progress  as  a  programmer,  you'll  start  to 
notice  that  there  are  several  ways  to  write  a  given 
program.  Sometimes  dozens  of  ways.  Is  it  better 
to  have  the  program  use  up  as  little  memory  as 
possible?  Should  it  run  at  maximum  speed?  Or 
should  vou  include  extensive  REMarks  and  sub- 
routines to  make  the  program  LlSTing  easy  to 
read  and  understand? 

The  following  three  programs  all  accomplish 
the  same  thing.  They  print  the  words  ivic  two  three 
four  five  100  times  on  screen.  However,  there  are 
significant  differences.  They  use  up  varying 
amounts  of  the  computer's  RAM  memory;  they 
run  at  different  speeds;  and  they  are  of  differing 
degrees  of  comprehensibility.  This  program  em- 
phasizes clarity: 

Program  1:ciarity 

10  TI$="000000":REM  TIMER  SET  AT  ZERO 

20  DATA  ONE,  TVJO, THREE,  POUR,  FIVE:  REM  ITEMS 

TO  BE  PRINTED 
30  F0RI=1T05:REM  START  OF  LOOP 
40  GOSUB  400: REM  SUBROUTINE  FOR  READ  AND 

(space] PRINT 
50  NEXT: REM  REDO  LOOP 
60  RESTORE: REM  RESET  DATA  POINTER  TO  FIRS 

T  ITEM 
70  X=X+1:REM  RAISE  COUNTER 
80  PRINT: REM  PRINT  CARRIAGE  RETURN 
90  IFX<100THEN30:REM  CHECK  TO  SEE  IF  100 

{space  lis  REACHED 
100  PRINTTI?:REM  PRINT  ELAPSED  TIME 
110  END: REM  FINISH  OF  PROGRAM 

120  REM 

400  REM  SUBROUTINE  TO  READ  AND  PRINT  DATA 

410  READ  D$;REM  GET  DATA  ITEM 

420  PRINTD?"  ";:REM  PRINT  DATA  ITEM 

430  RETURN 

This  version  includes  extensive  REMark  state- 
ments to  define  the  purpose  of  each  action.  It  also 
has  a  subroutine  between  lines  400-430.  A  sub- 
routine is  a  portion  of  a  program  which  is  used 
more  than  once  and  is  set  apart  from  the  main 
program.  The  subroutine  in  this  example  first 
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READs,  then  PRINTs  one  of  the  words  we're 
putting  on  screen,  and  then  it  RETURNs  to  the 
main  program.  The  subroutine  is  set  apart  from 
the  main  program  visually  by  the  REM  in  line 
120.  Putting  a  subroutine  off  by  itself  like  this 
contributes  to  the  readabilitv  of  the  program's 
LlSTing. 

REMs  Have  Disadvantages 

REMarks  have  no  effect  on  what  a  program  actu- 
ally does.  They  do  slow  it  down  slightly  when  it 
RUNs,  and  they  take  up  extra  space  in  RAM  mem- 
ory. However,  REMs  make  reading  a  program 
LlSTing  easier.  You  might  want  to  modify  your 
program  at  a  later  date  and  might  then  find  the 
REMarks  helpful  when  trying  to  follow  the  logic 
of  the  programming.  Likewise,  if  someone  else  is 
trying  to  understand  your  program,  REMarks  can 
be  of  great  assistance. 

The  TI$  in  lines  10  and  100  is  specific  to  Com- 
modore computers.  It  first  clears  and  then  prints 
out  the  computer's  internal  clock.  We've  included 
it  so  that  we  can  easily  see  how  fast  these  different 
versions  RUN. 

But  let's  go  for  brevity  now.  We'll  strip  off  all 
the  REMarks,  put  the  subroutine  back  inside  the 
main  program,  and  see  how  this  changes  things: 

Program  2:  Brevity 

10  TI$="000000" 

20  DATA  ONE, TW0,THREE, FOUR, FIVE 

30  F0RI  =  1T05:READ  D$:PRINTD$"  '■?:NEXT;PRI 

NT: RESTORE :X=X+1 : IFX<100THEN30 
50  PRINTTI? 

This  version  is  far  shorter  than  the  first  ver- 
sion: Program  1  uses  up  507  bytes  in  RAM  mem- 
ory; this  one  uses  only  104  bytes.  It's  easy  to  see 
that  overly  enthusiastic  REMarking  could  use  up 
too  much  memory.  Each  character  in  a  REMark 
takes  up  one  byte  in  RAM  memory.  If  you  are 
writing  a  long  program  on,  say,  a  VIC  computer 
with  only  3583  bytes  of  RAM,  you  have  to  be  con- 
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information  and  entertainment  for 
the  cost  of  a  local  phone  call  plus 
connect  time. 

To  become  part  of  this  flexible 
communications  network,  all  you 


need  is  a  computer,  a  modem  and 
CompuServe.  CompuServe  connects 
with  almost  any  personal  computer, 
terminal,  or  communicating  word 
processor. 

To  receive  an  illustrated 
guide  to  CompuServe  and  learn  how 
you  can  subscribe,  contact  or  call: 


CompuServe 

Consumer  Informalion  Service  PO  Bon  20212 

jnoo  Ari.rgton  Ce-Ife  Bivd    Colur-ini.s.  OH  43220 

800-848-8199 

InOhiocall614-45T-0802 


An  H&fl  Block  Company 


Todays 

most  innovative 

educational  software 

began  lieie 

GQTyearsaga 


At  Scholastic,  we  have  something 
no  other  educational  software 
company  has:  60  years'  experience 
making  learning  fun  for  kids. 

We  began  in  the  schoolrooms  of 
the  20'8  with  the  first  national 
news  magazine  written  especially 
for  young  people,  The  Scholastic. 
Since  then,  our  one  magazine  has 
grown  into  37,  and  we've  become 
the  largest  educational  publisher 
of  books  and  magazines  in  the 
English-speaking  world. 

Now  we've  put  everything  we've 
learned  from  five  generations 
of  school  children  into  the  most 
innovative  family  of  educational 
software  available  today  Scholastic 
Wizware!" 

Our  experience  makes  Wizware 
different  from  all  other  educa- 
tional software.  It  turns  learning 
siiyects  like  geography,  writing 
and  spelling  into  exciting  adven- 
tures for  your  children.  And  be- 
cause every  Wizware  game  is 
interactive,  kids  become  deeply 
involved  in  what  they're  learning. 

What's  more,  our  experience 
has  taught  us  the  importance  of 
teaching  things  most  other  educa- 
tional software  leaves  out.  Like 
teamwork,  imagination,  critical 
thinking  and  problem  solving. 
You'll  find  them  all  in  Wizware. 

But  by  far  the  most  important 
result  of  our  experience  is  that 
your  children  will  thoroughly  eiyoy 
learning  with  Wizware. 


There  are  now  Wizware  programs 
for  teaching  everything  from  crea- 
tive writing  to  computer  progi'am- 
ming.  Here  are  a  few  of  the  ways 
we  bring  learning  into  the  Com- 
puter Age. 

Spelldivei^" 

It's  the  most  ingenious  way  ever 
devised  for  teaching  spelling  and 
improving  reading  skills.  Deep 
beneath  the  sea  lie  giant  words 
covered  by  a  strange  seaweed 
called  lettermoss.  Kids  must  face 
ferocious  sharks  and  pesky  flipper- 
nippers  to  remove  the  lettermoss 
and  decipher  the  words. 

Agent  US  J^™ 

Agent  U.S.A.  turns  geography  into 
an  exciting  race  to  save  the  nation 
fi"om  the  ruthless  Flizzbomb.  Along 
with  learning  geography,  children 
hone  their  problem-solving  and 
reasoning  abilities. 

Story  Tree™ 

Story  Tree  can  bring  out  the  Mark 
Twain  in  every  child.  Budding 


i^j|!'^'i'ijjaa 


authors  create  their  own  mystery 
and  adventure  storiea  A  remark- 
able feature  lets  them  weave  alter- 
nate choices  into  every  turn  of  the 
plot,  and  challenges  their  imagina- 
tions to  the  maximum. 

Bannercatch™ 

Based  on  the  classic  game  of 
Capture-the-Plag,  this  is  the  most 
sophisticated  and  fun  strategy 
game  for  kids  available  today.  Not 
only  do  players  learn  how  to  devise 
complex  strategies,  they  also  learn 
how  to  work  together  to  solve 
difficult  problems 

Scholastic  Wizware.  Our  experi- 
ence makes  all  the  difference. 

Look  for  Wizware  at  your  local 
computer  store.  Or  contact  Scho- 
lastic Inc.,  730  Broadway  New 
York,  NY  10003, 212-505-3000. 

^^Scholastic 
W^fware 


Spelidii-er,  Agent  U.SA.  and  Bannercatch  designed  and 
developed  b]/  Tim  Snvder  Productions,  Inc.  Story  Tret 
deaiffned  and  deitloptd  fcy  George  Brackett. 


Spetidiver,  Agent  U.SA.  and  Bannercatch  available  for 
Atari  SOO/ISOO/XL.  Commodore,  Apple  and  IBM  versions 
available  tovn.  Story  Tree  avaOabk  for  Apple. 
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Your 


"ONE  STOP"  Source 
for  All  Your  Microcomputer 
Needs! 


For  As  Low  As 

$25.00 


PER  MONTH 


■K^  APPLE' 
■5^      ATARI 
T^/  COMMODORE' 
II  FRANKLIN^ 

II  IBM'' 

11  RADIO  SHACK* 

11         TEXAS INSTR* 
Ilk  TIMEXV 

i^\    SINCLAIR' 
M^^and  MORE[ 

With  full  credit  approval,  you  can  nowenioyi2,24. .  .upto  36  months 
extended  payments  on  all  your  major  purctiasesfrom  PACEl  Just  pur- 
chase at  least  $250  on  your  first  order,  (SfOO  exi  eacti  subsequent  order), 
you  can  enjoy  ttiose  wanted  peripherals  and  programs  RIGHT  AWAY 
and  pay  as  little  as  $25  per  month!  (fvlinimum  payment  ■  monthly  payment 
based  on  total  balance  and  finance  charges). 


VISA,  MASTERCARD  or  PACE  Vl»  CHARGE  CUSTOMERS 
CALL  (31 2)  595-3860 


JUST  THREE  EASY  STEPS. 


You  can  get  the  Hardware, 

Software  and  Accessories 

you  want  for  ANY  of  the 

popular  brands! 


2 


Pick  out  ttie  printer,  disk  drive  or  other  major  item  you  need 
and  call,  or  write.'  PACE  for  our  LOW  PRICES.  RememtDer, 
PACE  can  supply  almost  any  item  from  any  major  micro 
computer  manufacturer! 

PACE  will  then  send  you  a  PACE  "VTP  CHAMGE'  appli- 
cation for  you  to  immediately  fill-out  and  quickly  return 
to  us. 

Once  your  signed  PACE  "VIP  CHAKCE"  application 
is  received  at  PACE  it  usually  takes  ONLY  24  HOURS 
FOR  APPROVAL  and  we  can  then  slnip  your  order  RIGHT 
AWAY!  So,  don't  wait.  You  can  be  enjoying  that  printer  or 
disk  drive  sooner  than  you  think! 


WE  ARE  ALSO  BIG  IN  BOOKS  AND  SOFTWARE!. 


D  HOW  TO  USE  THE  0-64 
4250-000133   124pgs  »    3.95 

a  C-64  BASIC  HANDBOOK 
4795-000116   170pgs  S    9.95 

D  EASY  GUIDE  TO  YOUR  C-S4 
479S-0O0126   160pgs  $    7.95 

D  C-eA  PROGRAMMER'S  FIEF.  GUIDE 
47BO-022056   dSSpgs  $19.95 

D  THE  ELEMENTARY  C-64 
4560-000034   23:pgs  SI  4. 95 

D  C-64  GRAPHICS*  SOUND  PROG. 
4SOO-O00e40  240pgs  S15.50 

n  KIDS  &  THE  C-64 
4560-000172   240 pgs  $19.95 

D  GAMES  Ca48  PLAY 
4560-000121    270P8S  $14.95 


D  USING  THE  C-64  IN  THE  HOME 

4690-940072  200  093  SI 0.95 

D  COMPUTER  P1_AYG ROUND 
4560-000108   12ap9S  $    9.95 

□  COMPUTEi's  1  »t  BOOK  OF  C-64 
410S-OOOO20   26Jpg3  SI  2.95 


BOOKS  FOR  THE  VIC-20' 


D  VIC-20  USER  GUIDE 
4665-000086  388  pgs  SIS. 95 

a  YOUR  1  St  VIC-20  PROGRAM 
4795-000129   182  pgs  S    9.95 

□  VIC  GAMES 

4410-001060   lfl7pgs  $13.95 

D  PROGRAMMER'S  NOTEBOOK 
4760-022089   253  pgs  S14.9S 


PLEASE  SEND  ME  A  COMPLETE  BOOK  &  SOFTWARE  LISTING  FOR: 

n  APPLE*   D  ATARI"    D  COMMODORE'   D  IBM'   D  RADIO  SHACK' 

D  TEXAS  INSTR'    Q  TIMEX'/SINCLAIR'    D  Other   


^TnJ7TTT^1.>:t-lV.lll:IJd:l  I  If  H  I  I  I  I  I  I  I  I  ^m 

TO  ORDER:  Just  cfieck  the  )tf  block  by  the  lille  of  the  book  or  item  you  want  to 
order  Send  this  ad.  along  with  your  Name.  Street  Address.  City.  State  and  Zip 
Code,  and  your  Cedified  Clieck,  Money  Order.  Personal  Check  (allow  2  weeks 
to  clean.  Of  your  VISA  or  MASTERCARD  Number.  Enpiration  Dale  and  Interbank 
Number  (Minimum  Charge  is  S25J  to: 


I 


pacem 

micro  uiftttMre  centen 


DEPARTMENT:   C  -  P 

LOCK  BOX  328,  BENSENVILLE,  IL 

601  06-0328 


Please  Add  $2.50  Postage  and  Handling  on  ALL  Orders.  Illinois  residents  Add 
6%  Tax.  Foreign  Orders  Add  10%  (Min.  $51  Pnces  i  availability  subject  to  charge 


PACE  NOW  HAS  TWO  LOCATIONS  IN  CHICAGOLANO! 


Out  main  store  at  345  East  Irving  Park  Road  in  Wood  Dale,  just  minutes  West  ol 

Chicago's  D'Hare  Airport,  (3 1 2)  595-3860,  and  our  newest  store,  in  downtown 

Ctlicago,  PACE/DOWNTOWN  HOBBY  at  1  FJRST  NATIONAL  PLAZA,  Plaia 

I      Leveljnext  to  the  fountain|.  (31 2)  372-2464  I 
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servative  about  REMarking.  If  you  REMarked  to 
the  same  degree  as  in  Program  1,  you'd  have  only 
about  700  bytes  of  RAM  in  which  to  write  your 
actual  program. 

Maximizing  Speed 

Program  2  runs  faster  than  Program  1:  seven 
seconds  versus  twelve.  In  our  little  illustration 
program,  this  doesn't  much  matter.  But  if  you  are 
programming  a  game  or  writing  an  inventory  pro- 
gram, tor  example,  where  you  have  to  manipulate 
large  amounts  of  data,  speed  can  matter  a  great 
deal.  Each  REMark,  each  additional  line  number, 
each  jump  from  a  main  program  to  a  subroutine 
(and  back)  is  one  more  thing  for  the  computer  to 
interpret  during  the  execution  of  a  program. 
Here's  the  same  program  maximized  for 
speed: 

Program  3:  speed 

10  TI?="000000" 

20  PRINT"0IS!E    TWO    THREE    FOUR    FIVE" 

30  X=X-t-l:lFX<100THEN20 

40  PRINTTl? 

We've  eliminated  many  actions  here:  DATA 
reading,  RESTOREing,  multiple  PRINTing,  and 
FOR-NEXT  loopirtg.  Execution  speed  is  now  5 
seconds.  And  in  the  act  of  reducing  and  simpli-  ' 
fving  the  actions  the  computer  must  take  during 
its  RUN,  we've  shorteneci  the  program  as  well.  It 
now  uses  up  79  bytes  in  RAM.  Although  maxi- 
mizing speed  will  not  always  maximize  brevity,  it 
often  does. 

Which  is  the  best  program?  They're  each 
fine,  they  simply  emphasize  different  things. 
While  you're  a  novice,  it's  often  helpful  to  com- 
ment your  programs  heavily.  You'll  be  writing 
short  practice  progranis  anyway.  Then,  as  you 
become  more  familiar  with  reading  LISTings,  you 
can  restrict  your  REMarks  to  the  less  obvious 
things.  And  as  you  gain  programming  experience, 
you'll  discover  ways  to  improve  execution  speed 
and  conserve  memorv  too.  © 


Maxell  Floppy  Disks 

The  Mini-Disks 
with  maximum  r 
quality. 

Dealer  inquiries  invited.  C.O.D's  accepted. 
Call  FREE  (800)  235-4137. 


PACinC  EXCHANGES 

liHJ  FDQih.l.  a. J 
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Developing  a  mind 
for  the  Future.  ^^^ 


Color  SO  S49"  U.S: 


pro^lyces  80  Columns  Wj!h  Coto'^ 

Meeds  No  Extra  Hardware 

Use  With  Terminni  Programs 

Uses  No  Basic  Memofy  m  ihe  64 

Develop  Vojr  Own  Programs 


SUPER  BASIC  $39"  U.S: 

■  Gives  you  3  different  versions  of  Comrmodore 
Basic  Programing  Language  Version  4  PLUST 
A  Built  in  Machine  Language  Monitor! 

■  Disk  &  File  Maintenance  Commands  ' 
Data  Handling  Commafids 
Graptiics  Pius  Basic 

Compatible  wilti  Commmodores  "B"  Series  i 
MuctiMucti  Morel 

RECREATE  PROGRAM  $39"  U.S! 

RTC's  Answers  to  Program  Recreation 
Ccnverts  Printers  File  lo  SCRIPT  64  s  Fiies 

SUPER  COPY  S29"U.S: 

Super  Fast  Disk  Copies  on  a  1  54 1 
Ccpy  Enlire  Disk  jn  7  Minutes  or  Less 
Ccpy  SeJected  Files 
Ccmpiete  Patlecn  WalGfimg 
Full  Prompts 

BASIC  AID  $39"  U.S: 

Yojr  Aid  to  Writing  Programs 

Allows  Scrolling  Through  Programs 

Adds  33  more  Commands  to  tne  Basic  Language 

Has  Find.  Change.  Merge,  MoveCommanQs 

Convert  Hex,  Binary  and  Decimal  NumOers  and  Mofe^ 


SCRIPT  64  &  SCRATCH  PAD  64  S 1 05°°  U.S! 


Scripted 

Word  Processor  m  Frencri  and  Englisn 

80  Columns 

Global  Searcti  and  FlepSace 

User  Created  Diclionary 

Spelling  Check 

ScraicnPad64 

Ttie  Database  Mail  List  in  One' 

Merges  with  Script  64  Word  Processor 

Print  Out  Labels,  Envelopes.  Mail  Lisi  &  iMore' 

Suitable  witti  bolti  Single  and  Dual  Disk  Dnves 

Fully  C64  Link  CompaliWe 

•suggested  retail  price     fob   in  U  S  funds.  Toronto  CANADA 


C64  LINK 

The  Smart  64 

Give  These  Expanded  Capabilities 
to  Your  64  and  VIC  20 


*  The  ability  lo  transfer  data  fronn  any  type  of  device  to  anoThef 
(IEEE,  Serial,  Parallel) 

*  BASIC  <1.0  which  allows  you  to  run  more  PET  BASIC  programs 
and  gives  you  extended  disk  and  I/O  commands. 

*  The  ability  lo  hav&  several  G4s  on  line  together  -  sharing  com- 
mon IEEE  devices  such  as  disks  or  printers  with  Spooling 
Capability. 

*  Built-in  machine  language  monitor. 

*  A  built-in  termir^al  or  modem  program  which  allows  the  system 
to  communicate  through  a  modem  to  many  bulletin  board 
systems  and  other  computer  mainframes. 

■  Compelabi1(tywilhCP/M. 

Contact  your  local  Commoidore  dealer  or  RTC. 
Payrrienls  by  VISA,  MASTERCARD  or  BANK  TRANSFER. 
Mail  orders  also  Dy  certified  cheque,  etc. 


Cartridge  Audio     Serial  I/O 

Expansion  Slot       Switch       RF       Video  Port         CsssenePoft 


Spoofing 

to 
Printer 


CompatibiNty 
Board'"' 
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10610  Bayview  Avenue  IBayviewPlaza)    Richmond  Hill,  Ontario,  Canada  L4C3N8      14161884-4165 


Worm  Of  Bemer 


Stephen  D.  Fulte 


Nerm  the  worm  is  lost  in  Bemer  Castle  and  needs  your 
help  to  get  home.  You  must  guide  him  through  11  rooms 
and  help  him  find  magic  mushrooms  to  eat  along  the 
way.  The  journey  is  a  navigator's  nightmare,  because 
you  never  know  where  the  next  mushroom  will  grow, 
and  if  Nerm  hits  a  wall  or  gets  trapped  by  his  tail,  he 
loses  one  of  his  lives.  Written  for  the  Atari,  versions  are 
included  for  the  VIC,  64,  TI-99/4A,  and  IBM  PC/PCjr. 
A  joystick  is  required  for  some  versions. 


"Worm  of  Bemer"  is  a  fast-paced  arcade  game  in 
which  Nerm  the  Worm  travels  through  rooms 
eating  magic  mushrooms.  Nerm  is  lost  in  Bemer 
Castle  and  wants  to  return  home.  Guide  Nerm  to 
a  mushroom  so  he  can  keep  up  his  strength  for 
the  journey.  After  eating  five  mushrooms  in  a 
room,  Nerm  can  exit  to  the  next  room.  You  must 
guide  Nerm  through  11  rooms  before  he  finds  his 
home.  You  start  out  with  four  lives.  If  you  touch 
anything  besides  a  mushroom  you  will  lose  a  life. 

At  the  top  of  the  screen  will  be  the  current 
score,  what  room  Nerm  is  in,  how  many  mush- 
rooms Nerm  must  eat  to  open  the  exits,  and  how 
many  lives  Nerm  has  left,  including  the  current 
life.  You  get  100  points,^  plus  bonus  points,  for 
every  mushroom  you  eat.  Nerm  gets  a  bonus  life 
after  completing  the  first  two  rooms  and  another 
for  every  third  room  thereafter. 

Special  Features 

The  game  takes  advantage  of  Atari's  graphic 
capabilities.  Special  features  include  custom- 
designed  display  lists,  a  display  list  interrupt,  a 
redefined  character  set,  and  special  four-color 
graphics  mode. 

Nerm  uses  four  custom  display  lists.  The 
most  important  display  list  is  for  the  main  screen. 
This  display  list  mixes  three  graphics  modes  on 
one  screen.  The  first  two  display  lines  are  in 
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The  player  has  reached  Room  7  in  the  Atari  version  of  "Worm 
of  Bemer. " 

graphics  mode  2.  The  next  ten  lines  are  in  a  special 
graphics  mode  that  allows  four-color  characters. 
The  last  part  of  the  screen  is  in  graphics  mode  0. 
A  display  list  interrupt  is  used  to  change  the  back- 
ground color.  The  other  three  custom  display  lists 
mix  modes  0, 1,  and  2. 

A  special  character  set  was  needed  to  take 
advantage  of  the  four-color  character  graphics 
mode.  Characters  were  redesigned  for  walls,  the 
mushroom,  and  the  body  of  Nerm.  The  original 
set  was  copied  to  a  location  in  memory  not  used 
by  BASIC,  and  the  new  characters  added. 

Worm  of  Bemer  is  written  in  BASIC  with  two 
machine  language  subroutines;  one  makes  a  fast 
copy  of  the  character  set,  and  the  other  is  the 
display  list  interrupt. 

Be  sure  to  save  the  game  before  running  it.  If 
you  make  a  mistake  in  entering  the  two  machine 
language  subroutines,  it  is  likely  that  your  system 
will  crash  and  you  will  have  to  reboot. 
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Adding  More  Features 

You  can  learn  a  lot  about  programming  and  games 
by  modifying  the  action  and  settings  in  Worm  of 
Bemer.  Some  features  you  might  add  include  a 
routine  to  save  the  high  score  to  disk,  adding  more 
players,  or  having  Nerm  go  to  a  different  room 
depending  on  which  exit  he  takes.  Simpler  en- 
hancements would  be  changing  the  number  of 
mushrooms  that  Nerm  must  eat  or  changing  his 
speed. 

Program  i:  worm  Of  Bemer-^tari  Version 

Refer  to  the  "Automatic  Proofreader  article  before  typing  this 
program  in. 


FF  1 10 


KP  120 


LN  130 


10  140 


145 
150 


5  SCREEN=PEEK (88) +256«PEEK (89) 

10  BOTO  S000 

100  POKE  53761 ,0: S=STICK (0) : FOR  D= 1 
TO  SPEEDsNEXT  D 
IF  S=7  OR  S=6  OR  S=5  THEN  DXft=l 
-,  DYft  =  0:  DIR=1  :  IF  DDIR  =  2  THEN  DXA 
=  -1  : DYA  =  0: DIR  =  2 

IF  S=ll  OR  S=10  OR  S=9  THEN  DXA 
=  -1  : DYA=0:  DIR=2:  IF  0DIR=1  THEN 
DXA=1 : DYA=0: DIR=1 

IF  3=14  THEN  DYA=-1 : DX A=0 : D I R=4 
:IF  0DIR=3  THEN  D I R=3 : DYA= 1 : D X A 
=  0 

IF  S=13  THEN  DYA=1 : DXA=0: DIR=3: 
IF  0DIR=4  THEN  D I R=4 ; DY A=- 1 : DX A 
=  0 

COLOR  42:PL0T  X A, VA : DDI R=DI R 
XA=XA+DXA:YA=YA+DYA:L=LEN<XA«) : 
XA«  (L+1) =CHR« (XA)  : YA*  (L+1 >  =CHR* 
tYA):LOCATE  XA,YA,Z:IF  Z032  TH 
EN  200 

SOUND  0, 40, 8, 6: COLOR  170:PLOT  X 
A,YA:IF  L<;WORMZ  THEN  100 
COLOR  32:PLOT  ASC ( X  A* >  , ASC ( Y A* ) 
: XA*=XA* (2) : YA«=YA* <2) : GOTO  100 
SOUND  0, 200, 10, 1 6; POKE  SCREEN+Y 
A*40  +  XA,  132;  GOSUB  6600:  IF  ZOBU 
G  THEN  260 

WORMZ=WDRMZ+15+ (3*L0C) ; IF  WORMZ 
>240  THEN  WDRMZ=240 

XX=RND<2)»36+2:X=RND<1) «18+2sC0 
LOR  BUGiLOCATE  XX,X,Y:IF  Y032 
THEN  220 

SCDRE=SCORE+100+LDC»7:FOR  DEL=8 
TO  16:S0UND  D , 55 , 1 0 , 1 7-DEL ; NE X 
T  DEL 

HIT  =  HIT-1:IF  HIKl  THEN  COLOR  1 
60:PLOT  20,1:PLDT  19,20:PLDT  0, 
12:P0KE  SCREEN+12*40+39, 128: HIT 
=0:GOTO  100 

GOSUB  6600:PLOT  X X , X : SOUND  0,10 
0,10,16 
GO  TO  100 

IF  ZO160  AND  LIVES>1  THEN  CNT 
=CNT~l:GOSUB  7500:GDTO  290 
IF  Z<>160  THEN  CNT=CNT- 1 ; GOTO 
7500 

FDR  DEL=1  TD  16:SaUND  0,90,10,1 
7-DEL:NEXT  DEL 
GOSUB  7000; POSITION  0,23 
FDR  DEL  =  1  TO  24 : PR  I  NT  : SOUND  0, 
DEL, 10, 10: NEXT  DEL 
LDC=L0C+i:WDRMZ=5: CNT=0 
IF  LOOEXTRA  THEN  GDSUB  9  100 
GRAPHICS  0: COLOR  35; POKE  752,1: 


IE  162 


HH  190 


PD  200 


BD  2  10 


AD  220 


HD  221 


HC  226 


GE  227 

FP  230 
HP  260 

GK  265 

ns  27  0 

FB  27  1 
PE  275 

HG  280 
EK  235 
EL  290 


291 

300 

399 
400 
410 
420 
450 
460 

470 
500 
510 
520 
530 
550 
560 
575 
580 
600 
610 

620 
700 
710 

720 

80  0 

81  1 
812 
813 
890 
900 
910 

920 
1000 


CD  1  100 


JA 
JC 
JO 
HO 
EB 

JQ 
SN 
GH 
Ffl 

m 

ftp 
BI 

PD 
RE 
P! 
EN 


1  101 
1200 
1205 
1210 
1211 

1212 
1215 
1220 
1229 
1230 

1240 
1245 

1250 
5000 
5005 
5010 


EB  501  1 


BC  5015 


Ffl  5020 


POKE  710 

162 

POKE  710 

ON  LOC  6 

0, 700, 80 

GO  TO  50 

REM  SECO 

PLOT  5, 1 

GO  TD  50 

REM  SCRE 

PLOT  5,  1 

5: DRAWTO 

GO  TO  50 

REM  THE 

PLOT  5,5 

PLOT  5, i 

GO  TD  50 

REM  PRAM 

PLOT  7,6 

PLOT  18 

GO  TO  50 

REM  FRAM 

PLOT  1  ,  1 

10: DRAWT 

GOTO  50 

REM  FRAM 

FOR  1=6 

2,1: PLOT 

GOTO  502 

REM  FRAM 

PLOT  1,8 

PLOT  1 , 1 

PLOT  15, 

GOTO  502 

REM  THE 

FOR  1=5 

DRAWTO  3 

60  TO  50 

FOR  1=2 

38, I : NE 

O  19: PL 

1 : GOTO 

FDR  1=2 

38, I : NE 

0  19:PL 

I : COLO 

GOTO  40 

REM  YOU 

FDR  QZ= 

GRAPHIC 

PDSITIO 

HOME 

PRINT  « 

FOR  G=i 

FOR  1=1 

SOUND  1 

SOUND  0 

16 

NEXT  I; 
FDR  1=1 
:NEXT  I 
NEXT  QZ 
GOSUB  1 
GOSUB  1 
DIM  XA* 
, YBS (25 
SPEED=3 
: GOSUB 
A  =  2 

GRAPHIC 
, 0: GOSU 
* (LOC) ) 
XA«=" " ■ 


,0!eOSUB  6S00:POKE  712, 

, ASC<BOL«  <LOC)  ) 

DTD  5020,400,500,550,60 

0, 4  50, 55  0, 1 0  00, 1 100, 1200 

15 

ND  SCREEN 

0: DRAWTO  35, 10 

20 

EN 

0:DRAWTO  35,10:PLOT  18, 

la,  20 

0 
FOUTH  SCREEN 
: DRAWTO  35, 5 
6: DRAWTO  35, 16 
20 
E  5 

:DRAWTO  33,6 
7:DRAWT0  18,20 
20 

6 
0:DRAWTO  1B,10:PLOT  22, 

0  38,  10 
0 

7 
TO     14;PL0T     6,I:DRAWT0     1 

20,I:DRAWTO    32,I:NEXTI 
0 

8 
:DRAWTD     18,8 
5: DRAWTO     IB, 15 
12: DRAWTO     38 , 1 2 
0 

8     FRAME 

TO  12  STEP  3:PL0T  11,1: 
0.1: NEXT  I 
20 

TD  19:PLOT  1 ,  I  :  DRAWTO 
XT  I:COLOR  32:F0R  1=2  T 
OT  1,I;DRAWTD  22,I:NEXT 

5020 

TO  19:PLDT  1 , I : DRAWTO 
XT  IsCOLOR  32:F0R  1=2  T 
OT  1,I:DRAWT0  30,I:NEXT 
R  35 
0 

WIN 

1  TO  3 
5  18 
N  4,5; PRINT  #6:"NERM'S 

6;"<S  SPACESJTHANK  YDU" 

TO  5 

TO  10 
,  1+200,  10,16-1 
, 1+6, 10, I+5sP0KE  712,1* 

NEXT  G 
TD  200;SOUND  0,1,10,15 

:GDT0  7700 

0000: REM  UP  THE  GAME 

1  100: BUG  =  33 

(250) , YA« (250) , XB* (250) 

0) , A* ( 15) , B* ( 15) 

5:LIVES=4;SCORE=0:LaC=l 

SS00:HIT=5: WORM 2=5; EXTR 

S  0:POKE  752,1;P0KE  710 
B  6500;PDKE  710,ASC(BOL 
:POKE  77,0:POKe'  712,  162 
YA*="  " :  XB*="" : YB*=" " :  XA 
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^Jiimp  on 
10  monsters, 

64  screens  and 

$10,000 


witiiF^Joe. 

A  Mutated  Wonderwhisk  whisks  by.  ^^^^  Keep  bouncing  Joe  to  original 


The  SpinningTbp  almost  topples  him! 

Close.  But  Pogo  Joe 
bounces  back.  Bouncing 
from  cylinder  to  cylin- 

I  der,  screen  to  screen,       -also  3-dimensional  and 
Pogo  Joe  racks  up  point    fully  animated.The 
after  point.  graphics  almost  jump 

You  guide  him  from   off  the  screen,  leaving 

cylinder  to  cylinder,  changing  the  color  on      the  arcades  behind. 

top  of  each.  Change  the  top  of  each  cylinder 

on  a  screen,  then  you're 

on  to  the  next. 

The  more  screens 

you  complete,  the 

nastier  the  monsters 

you  face,  and  the  faster 

they  attack. 

Press  the  fire 

button!  Jump  two  cylin- 
ders to  safety.  Hop  into 

a  transport  tube,  and 

then  whoosh!  Pogo  Joe 

appears  across  die 

screen.  Jump  on  an 

escaping  monster.  Blam!  Ifs  gone  in  a  flash 


Keep  bouncing  Joe  to  original 
music  on  realistic  3-dimensional 
cylinders.  All  the  characters  in 
this  rollicking , 
game  are 


Only  to  reappear  out  of  thin  air. 


What s  ahead  with  Pogojoe'"'  is  $10,000. 
Simply  tell  us  what  magic  word  appears 

after  Pogo  Joe's  tenth 
screea  If  your  name 
is  drawn  from 
among  the  correct 
answers  you'll  win 
$10,000! 

No  purchase  is 
necessary  You'll 
find  entry  forms  at 
any  store  that  sells  Screenplay"' games. 

But  if  you  don't  win  you  can't  lose.  Pogo 
Joe'"'  is  so  much  fun  you'll  jump 
for  joy  no  matter  what  '^oo-k* 

■screenplay     ^ 

Box3558.  Chapel  HiB,  NC 27514  800-334-5470 


wmmmm 


Pogo  Joe  in  48-64K  on  the  Atari  and  Commodore  64.  See  your  local  software  dealer. 


-•"**»» 


=  20:  YA=1<?:  XB  =  25:  YB  =  20:  DXA  =  0:  DX  Kfl  7705  SOUND  0,0,0,0 

Ei  =  0:  DYA  =  -1  :  DYB=-1  ;  T  =  0:  IF  HIT<0  {lF77i0  GRAPHICS  17:P0KE  710,0 

THEN  HIT=0  Bfl7715  IF  SCORE>HSCaRE  THEN  HSCORE=SC 
BB5021   IF  LOC  =  3  THEN  Yft=15  0RE:BOSUB  9000 :  BRft  PH I CS  17:P0K 

LP  5030  DIR  =  4:IF  HIT>5  THEN  HIT  =  5  E  710,0 

PB  5050  COLOR  35:PLDT  0,1:DRAWTO  39,1:  LH7716  DL  =  PEEK  (  560  )  +256*  PEEK  <  56  1  ) 

DRAWTO  39,20:DRAWTO  0,20:DRAWT  K7717  POKE  DL+6+a , 2 : POKE  DL+7,7:P0KE 

0  0,1  DL+S, 7 

flP  5056  IF  HIT<1  THEN  COLOR  160-.PLOT  2  IC771B  POSITION  7,2:PRINT  #6s"NERM  " 

0,1:PLOT  19,20:PLOT  0,12:POKE  DJ7720  POSITION  2.5:PRINT  #  6 :  "  I!EI!TaiEH 

SCREEN+12t40+39, 128: HiT=0: GOTO  £333  "; SCORE 

150  DF  7730  POSITION  2.7:PRINT  #6:  "high  sc 
HB  5060  XX=RND  <2)  *36  +  2:  X  =  RND  (  1  )  #  18  +  2:  C  nre  "  ;  HSCGRE 

OLOR  BUB:LOCATE  XX,X,Y:IF  Y< >3  FK7735  SOSUB  7a00:RESTORE  7790 

2  THEN  5060  FN  7736  PRINT  tt6:PRINT  #6;"<3  SPACESJP 
ED  5065  PLOT  XX,  X  RESS  TRIGGER" 

KS  5085  GOTO  150  .  KC7737  PRINT  #6;  "{3  SPACESITO  PLAY  AG 

JL  5090  GO  TO  220  A  I  N  ,  " 

0(15500  REH  START  10  7738  PRINT  tt6;"{3  SPACES]- ANY  KEY  TO 
BK5510  GRAPHICS  18:PDKE  712,15  END" 

ML  5520  POSITION  5,5;PRINT  #6j;"get  rea  017740  FOR  X=l  TO  10:READ  PN:SOUND  0, 

dy"  PN, 10, 10: SOUND  1 , PN+ 1 , 1 0 , 1 0 : FQ 

IH  5530  RESTORE  5600  R  0=1  TO  20:NEXT  D:NEXT  X 

115540  FOR  X  =  l  TO  14:READ  NNsBDUND  0,  Kfl  7745  SOUND  0 ,  0 ,  0 .  0 :  SOUND  1.0,0,0 

NN,  10,  10:  SOUND  1  ,  NN+ 1  ,  1  0  ,  5  ;  FDR  AL7780  IF  STRIG<0)=0  THEN  GO  TO  5011 

D=l  TO  25:NEXT  D:NeXT  X  FE 7783  IF  PEEK < 53775 )< 255  THEN  POKE  7 
KI  5545  SOUND  0  ,  0  ,  0  ,  0  :  SOUND  1,0,0,0  64  ,  255  :  GR  APH  I  CS  0:END 

KP  5550  RETURN  0(7785  GOTO  7780 

KE  5600  DATA  121,91,0.91,81,0,81,72,60  3A7790  DATA  91.0,121,128,121,108,121, 

,72,60,72,91,0,121,91,0,91  0,96,9  1 

KN  6500  bL  =  PEEK  (560) +256«PEEK  (56  1  )  C(t7B00  REM  RANK  THE  GAMER 

JJ6501  SOUND  0,0,0,0  DP  7810  PRINT  4»6:PRINT  tt6;"<r7  5PACES3Y 
AN  6502  POKE  756 ,  CHSET/ 256  DU  NEW  RANK  IS  "  :  ' 

HC  6550  FDR  1=0  TO  20  !fi7S20  IF  L0C=1  THEN  PRINT  «6;  "ZERO" 

tlF  6560  POKE  DL  +  6+I,4  AL  7B30  IF  LOC  =  2  THEN  PRINT  #6;  "ROOKIE 
FK  6570  NEXT  I 

PJ  6572  POKE  712,0  AH  7835  IF  LDC  =  3  THEN  PRINT  #6;  "NOVICE 


EF  7336  IF  LOC  =  4  THEN  PRINT  #6;"AVERAG 

E" 
BI  7837  IF  L0C  =  5  THEN  PRINT  #6;  "MASTER 


Ft:  6573  POKE  DL  +  6  +  20  ,  4  :  POKE  DL  +  6+1,132 
GD6574  POKE  DL +6  +  25  ,  65  :  POKE  DL  +  6,6:PO 

KE  DL+3, 6+64: POKE  54286,192 
CD  6575  BDSUB  6600 

LD  6580  RETURN  IS  7838  IF  L0C  =  6  THEN  PRINT  #6;  "GRAND 
LJ  6600  REM  PRINT  SCORE  MASTER" 

LA6605  POSITION  0,0:PRINT  "score  "  ;  SC  CS7839  IF  L0C  =  7  THEN  PRINT  #6;  "WIZARD 

ORE 

QH  6606  POSITION  12,0:PRINT  "room  "  ;  LO  -3  7840  IF  L0C  =  8  THEN  PRINT  #6;  "GRAND 

C  WIZARD" 

Aft6610  POSITION  19,0:PRINT  "   MIMnJ-J-"^  5E7S41   IF  LOC  =  9  THEN  PRINT  #6;  "SUPER 

E  ";HIT:"  lives  ":LIVES  STAR" 

KD  6620  RETURN  6(17942  IF  L009  THEN  PRINT  *t6.;"HALL  0 
CF  7000  REM  CLEAN  UP  THE  CENTIPEDE  f"     FAME" 

EK  7002  SPEED  =  SPEED-5  '-^   7860  RETURN 

K!  7004  GOSUB  6600:HIT  =  5  55  9000  REM  NEW  HIGH  SCORE 

EC  7005  L  =  LEN(XA«)  IF  9002  GRAPHICS  18 

LD7010  FDR  1  =  1  TO  L-1  PK  9003  POSITION  3,5:PRINT  #6;  "NEW  HIG 
017020  SOUND  0,1,12,6  H  SCORE" 

ftP7190  COLOR  32:PL0t  ASC  (  X  A*  )  ,  ASC  (  Y  A«  FC  9005  FOR  Y=l  TO  3 

)  :  XA*=XA*  (2>  :  YA$  =  YA*  <2)  EF9010  FOR  N=l  TO  5 

FB  7200  NEXT  I  NH  9020  FOR  D=l  TO  5:S0UND  1,0*20,10,5 
B:7210  RETURN  :NEXT  D 

PB  7500  REM  OOPS  JP  9025  POKE  712,N«20 

AD7510  GRAPHICS  18:POKE  7  1  2 ,  ASC  <  B0L4  (  HH9030  SOUND  0,N*30,10,7 

LDC)  )  Fi-  '?050  NEXT  N 

FD7515  SPEED  =  SPEED-5  BH  9060  NEXT  Y 

NH 7520  POSITION  7,5:PR1NT  #6;"D0PS!"  M 9065  FDR  D=l  TO  30:NEXT  D 

Hft7521  LIUES  =  LI  VES-1  KJ  9070  POKE  7  1  2  ,  1  63  :  RETURN 

Fft  7525  FOR  DEL  =  1  TO  20:NEXT  DEL  PC  9 1 00  REM  EXTRA  LIFE 

LI  7530  FOR  DEL=1  TO  10:SOUND  0,DELt20  IE  9 1  1 0  GRAPHICS  17 

,  10,  DELt4:  NEXT  DEL  CB  9  1  1  5  POSITION  5,5: 
EQ  7550  FDR  DEL=1  TO  20:NEXT  DEL  IFE" 

ED  7560  IF  LIVES<1  THEN  7700  AB  9 1 30  FDR  J=100  TD 

LO  7599  RETURN  AC  9140  SOUND  0,J,10, 
DH  7700  REM  THE  GAMES  OVER  0,5 
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PRINT  tt6; ' 

■BONUS 

200 

5: SOUND  1 . 

. 200-J 

An  educational  ad 
about  educational  software. 


Yr  OU  studied  all  the  computers 
and  finally  chose  the  one  your 
family  found  most  useful.  One 
of  the  main  reasons  you  wanted 
a  computer  in  the  first  place  is  to  help 
your  children  in  school.  Not  just  to 
teach  them  how  to  use  a  computer, 
but  also  to  help  them  get  good  grades 
in  basic  school  subjects  like  reading 
or  geography. 

That's  why  you  should  know 
about  A£C,  American  Educational 
Computer  -  one  of  the  country's 
most  important  developers  and 
pubHshers  of  educational  software. 


You  can  help yimr  child  nil 
ike  iMy  ihnmgh  school 


Lt)okforour 
display  in 
yoiirfavirrite 
snfiieare  store, 
ami  pick  up 
yourfree 
eduailimmi 
Iciiflel. 


andbeyond. 


AEC  grew  up  on  education. 

The  management  of  AEC  started  in 
educational  pubHshing,  with  coUec- 
tiveiy  over  100  years  of  experience 
in  the  field.  AEC  knows  curriculum 
and  how  American  education  is 
practiced  in  the  classroom 
That's  important  because 
children  should  learn  at 
home  the  same  way  they 
learn  at  school.  Other- 
wise, you'll  have  a  very 
confused  cluld,and  con- 
fusion is  not  the  way 
to  better  grades  or 
better  learning. 


LtuiaHioitil 
lixikki 

AEC  knows  that 
good  grades  are  important. 

Any  educational  software  could  help 
school  performance  in  some  way. 
That's  because  the  computer  is  such 
a  patient  teacher,  giving  instant  feed- 
back to  questions  and  allowing  chil- 
dren to  learn  at  their  own  pace. 

But  AEC  software  has  an  impor- 
tant advantage.  Our  approach  has 
been  student  tested  under  actual 
classroom  conditions.  So  we  know 
it  keeps  the  child's  interest  while  it 
teaches. 

AEC  gets  parents  involved  in 
the  learning  process. 


With  eidier  AEC's 
MATCHMAKER'"or 
HAS  YREADER"  Series, 

you  can  take  your 
child  through  the  grades 
in  subjects  such  as 
Phonics,  Word  Attack 
Skills,  Reading  Com- 
,   prehension,  Spanish, 
World  or  US  Geogra- 
phy, and  Grammar.  Our 
teacher  tested  system 


allows  parents  to  enter  material  into 
a  Uvely,  interactive  format.  And  be- 
cause AEC's  programs  are  grade- 
level  oriented,  you  can  help  your 
child  all  the  way  through  school. 

AEC  doesn't  play  games 
with  education. 

AEC  programs  do  contain  games,  but 

only  as  rewards  for  Icarrmg  achieve- 
ment. For  example,  once  your  cMd 
successfully  completes  the  objective 
in  the  Matchmaker  Geography  pro- 
gram, he  or  she  can  play  an  exciting, 
action-packed 
game.       


Sure,  the  games  are  fun.  But 
they're  not  the  basis, and  certainly 
not  tlic  primary  focus,  of  any  AEC 
software.  Our  focus  is  strictly  on 
learning.  And  isn't  that  what  you 
buy  educational  software  for? 
It  you  have  more  questions  about 
educational  software, 
contact  your  nearest 
AEC  educational  soft- 
ware center.  And 
thanlcs  for  being  a 
concerned  parent. 


AmericanEducationd  Computers 


2450  Embarcadero  Way,  Palo  Alto,  CA  94303 


All  AEC  I'rodiitK.m' uimp.mblc  niih  Appk-.'  IBM •  PC. Atari WKI,' TRS SO'- Colcir anj Commudurt' 64"  Mit:rnc<impun.H.  T.M MKnihtsmanuUcmifi's ir.kknuik.  g  nBniifS iiunul.iciurif>  ri5;i!.ii-ivil ii.idi:mjjk. 


tic  9  145 
FI  9150 

r.f  9ii0 

HE  9  170 
HB  9  180 
LD  9190 
SF  10000 


POKE  712, J 

NEXT  3 

SOUND  0,  0,0,0:  SOU^4D  1,0. 

EXTRA=EXTRA+3 

LI VES=LiyES+l 

RETURN 


0,  0 


DIM  DUM { 10) , BOL« ( 100) : GRAPHIC 
S  17 

GF  10001  RESTORE  10015:FOR  1  =  1  TD  19:R 
EAD  A:  BOL*  (  I  ,  I  ) =CHR4  ( A)  :  NEXT 
I 

DATA  196,52,164,198,10,54.50, 
196 

DATA  52,50,180,196,74.79,76,7 
6,76,76,76 

DL  =  PEEK:  C560)  +256*PEEK 
POKE  DL+10,7 
POSITION  2^2:PRINT 


Gfl  1001! 


HL  10016 


NL 
Kl 


10017 
100  1  B 


EE  10020 

DE  10025 

FI  10035 

tV.  10045 
IF  10060 
1110  0 
11110 
1  1  143 
11144 


(561  ) 
#6; "    WELC 
!  PRINT  #6:  "nerm  o 


DD 
DC 

m 


iP  11145 
PK   1  1  160 

YM  111  62 

EB  1  1  164 

flfl  1  1  1  66 

EB  1  1  168 

DL  1118  0 
Alt  1  1  190 
LC  1  1200 

BN  1  1  205 

LG  1  1240 

KH  1  1  250 

US  1  125  1 

BD  1  1252 

Pfl  1  1260 

Nl  1  1270 

DL  201  10 
F£  20120 
m 20130 
HP  20140 
C6  20150 

JL  20170 


OME  TO" 

POSITION  3,7 

f  bemer " 

POSITION  0,14:PRINT  #6;"II55HB 

IF  STRI6(0>=1  THEN  10045 

GOSUB  20110:RETURN 

CHBAS=756 

CHSET=<PEEK(106)"a) *2  56 

DIM  E*(50) 

RESTORE  11160:FOR  1=1  TO  41:R 

EAD  ft: E$ ( I , I ) =CHRS (0) : NEXT  1 

CD  =  USR (ADR  <E*)  , CHSET, 4) 

I  04,  133, 2  07,  1 04,  133, 


12, 169, 0, 133, 20 

162, 1 , 160, 0, 

06, 200, 208, 249, 

32, 228, 212, 208, 


CHS 


DATA  104, 

206, 104 

DATA  104, 133 

4,  169 

DATA  224, 133, 20 

1  77 

DATA  204, 145. 

230,205 

DATA  230,207, 

240, 96, 0 

POKE  756,CHSET/256 

RESTCRE  1 1240: GRAPHICS  19 

FOR  1=0  TD  31; READ  A: POKE 

ET+I,A:NEXT  I 

FOR  1=0  TO  7;READ  A:POKE 

T+80+I , A: NEXT  I 

DATA  0,00,00,00,00,00,0,0 

DATA  0,20,85,35,255,40,40 

DATA  85, 85, 85 , 85, 85, 85, 85, „_ 

DATA  170,190,190,190,190,190, 

170, 170 

DATA  000,020,255,255,255,255, 

0  20,000 

RETURN 

RESTORE  20150:FDR  1=0  TD  10 

READ  C 

POKE  1536+I,C 

NEXT  I 

DATA  72,169,0,141,10,212,14  1, 

26, 203, 1 04, 64 

POKE  S12.0:PQKE  513.6:RETURN 


CHSE 


000 
85 


Program  2:  worm  Of  Bemer— vie  version 
(Program  Loader) 

Translation  by  Kevin  Martin,  Editoriai  Programmer 

Refer  to  the  "Automatic  Proofreader  orticie  before  typing  ttiis 
progrom  in, 

10  POKE631,13:POKE198,l  srem  34 

11  REM  POKE631,13l!POKE198,l       srem  56 
15  REM  WITH  TAPE,  DELETE  LINES  10  AND  40, 

AND  REMOVE  THE  REM  IN  LINE  11  : rem  35 
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20  POKE43,l:POKE44,32:POKEai92,0  srem  80 
30  POKE36869,240:POKE36866,150;POKE648,30 

:rem  54 
35  PRINT" [CLR}"  I  rem  204 

40  PRINT"[2  D0WN}L0AD";CHR5(34) ; "NM";CHR$ 
(34) ; ",8":PRINT" {4  DOWN ) RUN { HOME ] " 

: rem  179 
50  NEW  srem  79 

Program  3:  Worm  Of  Bemer— vie  Version 
(IMain  Program) 

Transiation  by  Kevin  Martin,  Editorial  Programmer 

Refer  to  the  "Automatic  Proofreader"  article  before  t/ping  this 
program  in. 

0  REM  THIS  PROGRAM  MUST  BE  SAVED  AS  "NM" 
{ SPACE ITO  LOAD  WITH  THE  LOADER  PROGRAM 

irem  201 

1  VS=7680  srem  236 

2  POKE37139,0  ; rem  196 
5  POKE36879,8  srem  217 
10  GOTO5000  :rem  95 
100  GOSUB4000:FORD=1TOSP:NEXT  srem  103 
110  IFS=7ORS=6ORS=5THENDX=1:DY=0!DI=1:1FO 

D=2THENDX=-1:DY=0:DI=2         -rem  18 
120  IPS=11ORS=10ORS=9THENDX=-1:DY=0;DI=2: 

IFOD=lTHENDX=l5DY=0;DI=l      srem  108 
130  IFS=14THENDY=-1 s DX=0 : DI =4 s IF0D=3THEND 

I=3  5DY=lsDX=0  -rem  122 

140  IFS=13THENDY=lsDX=0sDI=3slFOD=4THENDI 

=4:DY=-l!DX=0  -rem  123 

145  PO=VS+XA+YA*22  eOD=DI : POKEPO, 42  sPOKEPO 

+S0,9  srem  161 

150  XA=XA+DXsYA=YA+DY:L=LEN(XA$) tXA9=XA$+ 

CHR$(XA):YA$=YA5+CHR$(YA)       srem  0 
155  Z  =  PEEKCVS+XA+YA*22)  JIPZO32THEK200 

! rem  43 
162  POKE36876,150:POKE36876,0sPO=VS+XA+YA 

*22 : POKEPO, 36 ; POKEPO+SO, 13  s IFL<WOTHEN 

100  srem  250 

190  PO=VS+ASC{XA$)+22*ASC(YA$):LL=LEH(XA$ 
)-l;XA$=RIGHT$(XA$,LL)         srem  208 

191  POKEPO, 32s POKEPO+SO, 0  srem  43 
195  YA$=RIGHr$(yA$,LL)sGOTO100     srem  19 

200  POKE36876,200:FORQQ=lTO20sNEXT:rem  60 

201  POKE36a76,0sPO=VS+XA+22*YAsPOKEPO, 36: 
POKEPO+SO ,13s  GOSUB6600  s 1 FZ  <>  BUTHEN260 

srem  133 
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210   WO=WO+5+3*LO:IFWO>127THENWO=127 

:rem   146 

220  XX=INT(RND(l)*18+2) :X=INT ( RND( 1 )*18+3 
)  :IFPEEK(VS+XX+22*X)  O32THEN220 

jrerti   235 

221  SC=SC+100+LO*7  :rem  225 

225  HI=HI-1:GOSUB6600:IFHI>0THEN229 

: rem  112 

226  PO=VS+ll+22*2:POKEPO, 160 :POKEPO+SO, 0: 
PO=VS+11+21*22:POKEPO,160     : rem  198 

227  POKEPO+SO,0;PO=VS+22*12:POKEPO, 160tPO 
KE36876,175  : rem  120 

220  PO=VS+22*12+21 : POKEPO, 160 : POKEPO+SO, 0 
tGOTO100  s rem  203 

229  PO=VS+XX+X* 22 : POKEPO , BUG : POKEPO+SO ,  1 3 

:rem  133 

230  GOTO100  ;rem  95 
260  IFZ  <  > 160ANDLI > 1THENGOSUB7500 :GOTO290 

srem  242 
265  IFZO160THEN7500  :  rem  146 

270  POKE36876,140  srem  151 

271  GOSUB7000;PRINT"{HOME3 {23  DOWN}" 

;rem  134 

275  FORDE=lT023: PRINT: POKE36876,DEL*2+140 

!NEXT;POKE36876,0  : rem  43 

280  L0=L0+1 :WO=5:IFLO=12THEN1200  : rem  177 

282  PP=PEEK( 36879) : IFPP=15THENPP=10 

:rem  121 

283  POKE36879,PP+l  : rem  5 
285  IFLOEXTHENGOSUB9100  :  rem  29 
290  PRINT"  {CLR]  ■':GOSUB6600  srem  133 
300    ONLO    GOTO5020,400,500,550,600,700,800 

,450,550,1000,1100,1200  : rem   176 

399  GOTQ5015  : rem  169 

400  REM  SECOND  SCREEN  : rem  244 
410  FORI=VS+3+10*22TOVS+18+10*22:PDKEI,35 

:P0KEI+S0,9:NEXT  j rem  192 

420  GOTO5020  ; rem  150 

450  REM  SCREEN  : rem  61 

460  FORI=VS+4+10*22TOVS+17+10*22:POKEI,35 

:P0KEI+S0,9:NEXT  : rem  197 

465  FORI=VS+10+6*22TOVS+10+20*22STEP22:PO 

KEI, 35!POKEI+SO,9:NEXT  : rem  102 
470  GOTO5020  :rem  155 

500  REM  THE  FOURTH  SCREEN  ! rem  242 
510  FORI=VS+3+5*22TOVS+18+5*22:POKEI,35:P 

0KEI+S0,9:NEXT  : rem  105 

520  FORI=VS+3+lB*22TOVS+18+18*22 : POKEI , 35 

!P0KEI+S0,9:NEXT  : rem  210 

530  GOTO5020  jrem  152 

550  REM  FRAME  5  ! rem  30 

560  FORI=VS+5+6*22TOVS+16+6*22! POKEI, 35 jP 

OKEI+SO,9:NEXT  : rem  112 

575  FORI=VS+9+7*22TOVS+9+20*22STEP22«POKE 

I,35;POKEI+SO,9:NEXT  t rem  25 

580  GOTO5020  . rem  157 

600  REM  FRAME  6  t rem  2  7 

610  FORI=VS+l+10*22TOVS+9+10*22: POKEI,  35! 

P0KEI+S0,9:NEXT  : rem  144 

615  FORI=VS+13+10*22TOVS+20+10*22!POKEI,3 

5:POKEI+SO,9:NEXT  i rem  241 

620  GOTO5020  srem  152 

700  REM  FRAME  7  srem  29 

710  F0RJ=6T014:FORI=VS+4+J*22TOVS+9+J*22! 

POKEI,35:POKEI+SO,9:NEXT  srem  76 
715  PORI=VS+15+J*22TOVS  +  17+J*22  sPOKEI, 35t 

POKEI +80, 9: NEXT s NEXT  srem  69 

720  GOTO  5020  srem  153 

800  REM  FRAME  8  srem  31 

811  FORI=VS+l+8*22TOVS+10+8*22; POKEI, 35sP 

0KEI+S0,9sNEXT  srem  105 

82     COMPUTE!     Apii!  1984 


812  FORI=VS+l+15*22TOVS+10+15*22sPOKEI,35 
:P0KEI+S0,9sNEXT  srem  198 

813  FORI=VS+9+12*22TOVS+21+12*22s POKEI, 35 
sPOKEI+SO,9sNEXT  srem  203 

890  GOTO5020  : rem  161 

1000  F0RJ=4TO19:F0RI=VS+l+J*22TOVS+19+J*2 

2:P0KEI, 35 :P0KEI+S0, 9sNEXTsNEXT 

srem  31 
1005  P0RJ=4TO19sF0RI=VS+l+J*22TOVS+ll+J*2 

2  5  POKEI ,32  s  POKEI+SO , 9  s  NEXT : NEXT 

srem  25 
1010  GOTO5020  srem  194 

1100  F0RJ=4T0 1 9 ! FORI =VS  +  1+J* 2 2TOVS+1 9+J* 2 

2  s  POKEI , 35 : POKEI+SO, 9 ; NEXT  sNEXT 

srem  32 
1105  F0RJ=4T019 : FORI =VS+1+J*  2 2TOVS+1 4+J*  2 

2  s  POKEI ,32: POKEI+SO , 9  s NEXT i NEXT 

srem  29 
1110  GOTO400  srem  144 

1200  REM  YOU  WIN  srem  146 

1205  F0RZZ=1T03  srem  167 

1210  PRINT"{CLrH6  D0WN}{5  RIGHTJnERM'S  H 

CHE"  srem  244 

1212  PRINT" {5  DOWN} {6  RIGHT} THANK  YOU" 

srem  13 
1215  F0RG=1T05  : rem  61 

1220  FORI=1TO10  srem  103 

1230  P0KE36876, 1+130  srem  55 

1240  NEXTsNEXT  : rem  127 

1245  F0RI=lT0127!P0KE36876,I+128sNEXT 

srem  210 
1250  NEXT:GOTO7700  srem  72 

4000  POKE37154,127:S3=-( ( PEEK( 37152 )AND12 

8)=0) : sP0KE37154,2S5  srem  75 

4010  P1=PEEK( 37137 )sSl=-( (PIANDB )=0 ) : S2=( 

{P1AND16)=0) sS0=( (P1AND4)=0)  srem  24 
4020  S=JP{S2+S3+1,S0+S1+1)  srem  141 
4030  FR=-((P1AND32)=0} sRETURN  srem  171 
5000  REM  UP  THE  GAME  srem  73 

5005  GOSUB10000!GOSUB11100:BUG=33:rera  1G3 

5011  SP=3  5sLI=4:SC=0sLO=l:GOSUB5500sHI=5: 
W0=5:EX=2  :rem  40 

5012  POKE36879,10  : rem  149 
5015  PRINT"{CLR]"5GOSUB6500       srem  180 

5020  XA?= " " : YA?  =  " " 3 XB$  =  " " 5 YB5= " " s XA=1 1 : YA 
=19!DX=0  :rem  161 

5021  IFLO=3THENYA=18  srem  209 
5025  DY=-1 sT=0sIFHI<0THENHI=0  srem  242 
5030  DI=4:IFHI>5THENHI=5           srem  197 

5050  FORI=VS+22*2TOVS+21+22*2sPOKEI, 35:PO 
KEI+19*22, 35sPOKEI+SO,9       :rem35 

5051  POKEI+SO+19*22,9  5NEXT         srem  17 

5055  FORI=VS+22*2TOVS+22*20STEP22: POKEI, 3 
5:POKEI+21,35:POKEI+SO,9     : rem  213 

5056  POKEI+SO+21 , 9 : NEXT: IFHI >0THEN5060 

srem  67 

5057  I=VS+ll+22*2:POKEI, 160s POKEI+SO, 0 s 1= 
VS+1 1+2 1*22 : POKEI , 160  s  POKEI+SO, 0 

srem  42 

5058  POKEVS+ 12* 2 2,1 60 :POKEVS+l 2*22+50,0 

srem  224 

5059  POKEVS+12*22+21, 160sPOKEVS+12*22+SO+ 
21,0:GOTO150  srem  6 

5060  XX=RND ( 1 ) *  19  +  2 ; X=RND { 1 ) *  18+3  s IFPEEK ( 
VS+XX+X*22)  O32THEN5060      srem  226 

5065  POKEVS+XX+X*22,BUsPOKEVS+XX+X*22+SO, 
13  srem  178 

5085  GOTO150  srem  161 

5500  PRINT" {CLR}"  srem  46 

5510  PRINT"{11  DOWN) (6  RIGHT}GET  READY" 

: rem  90 
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5540  FORX=lT014:POKE36876,NN(X) :F0RD=1T01   7870 

20 ; NEXT  5  NEXT  s  POKE3687 6 , 0 
5  5  50  RETURN 

6500  REM  REDEFINING  SCREEN 
6575  GOSUB  6600 
6580  RETURN 
6600  REM  PRINT  SCORE 

6605  PRINT" [YEL} {HOME} SCORE  " ; SC 

6606  PRINT" {HOME} {13  RIGHT} ROOM"; 


6610  PRINT "MUSHROOMS  " ;HI ; "LIVES' 


6620 

7000 
7002 
7004 
7005 
7010 
7020 

7190 

7195 

7200 
7210 
7500 
7510 
7515 
7520 

7521 
7525 

7530 

7550 
7560 
7599 
7700 
7705 
7710 
7715 

7718 

7720 

7730 

7735 
7736 

7740 

7780 
7783 


7785 

7800 
7810 

7820 

7830 

7840 

7850 

7860 


I  rem  5  7 
I  rem  175 

:rein  74 

: rem  35 
:rem  179 
:rem  185 
srem  160 
LO 

: rem  66 
fLI 

:  rem  9 
: rem  174 

trem  37 
s rem  174 

: rem  84 
:rem  129 
: rem  179 


RETURN 

REM  CLEAN  UP  THE  CENTIPEDE 

SP=SP-5 

GOSUB  6600:HI=5 

L=LEN(XA$) :IPL>127THENL=127 

FORI=lTOL-l 

POKE36876,I+128!PORQQ=lTO10sNEXT 

srem  239 
PO=VS+ASC(XA$)+22*ASCCYA$) jLL=LEN(XA 
$)-l!XA$=RIGHT$(XA$,LL)  : rem  7 
YA$=RIGHT$ { YA$ , LL ) : POKEPO, 32 1  P0KEPO+ 
S0,1 

NEXT!POKE36a76,0 

RETURN 

REM  OOPS 

PR1NT"{CLR}{PUR}" 

SP=SP-5 

PRINT" {10  DOWN} {9 


LI=LI-1 
FORDE=1TO20 iNEXT 


J  rem  17 
:rem  219 
srem 
:  rem 
:  rem 
:  rem 
RIGHT }OOPS" 

:  rem 
:  rem 

;  rem 


170 
241 
205 
183 

143 
148 

47 


FORDE=1TO10:POKE36876,DE*10+150;FORQ 
Q=1TO10 I  NEXT: NEXT !POKE36876,0 trem  35 
FORDE=1TO20:NEXT  : rem  45 

IFLK1THEN7700  -rem  96 

RETURN  :rem  190 

REM  THE  GAMES  OVER  : rem  60 

POKE36876,0  trem  108 

PRINT" {CLR}"  trem  51 

IF  SC>HSTHENHS=SC:GOSUB9000: PRINT" 
{CLR} ^83"  srem  43 

PRINT" {2  DOWN} {9  RIGHT }NERM"  trem  1 
PRINT"{YEL} {4  D0WN}Y0UR  SCORE  " ; SC 

trem  31 
PRINT"g63E5  DOWN) HIGH  SCORE  "fHS 

:  rem  2 
GOSUB  7800  trem  37 

PRINT" {WHT} [DOWN} PRESS  TRIGGER  TO  PL 
AY,Q  TO  QUIT"  trem  155 

FORX=1T015:POKE36876,PN(X) :FORD=lT01 
00:NEXT:NEXT;POKE36876,0  trem  62 
GOSUB4000:IFPR<>0THEN5011  trem  27 
IFPEEK{ 197 )=48THENPOKE198,0: PRINT" 
{CLR} {ELU}"; :POKE36879, 27 : POKE36869 , 
240tEND  trem  215 

GOTO  7780  trem  234 

REM  RANK  THE  GAMER  trem  44 

PRINT"{CYN} {2  DOWN} {3  SPACES } YOUR  NE 
W  RANK  IS  "  trem  99 

IFL0=1THENPRINT " { 9  SPACES } ZERO " 

trem  169 
IFLO=2THENPRINT " { 8  SPACES } ROOKIE " 

trem  52 

SPACES}NOVICE" 

:rem  49 

SPACES} AVERAGE" 

: rem  106 

SPACES} MASTER" 

trem  61 


IFL0=3THENPRINT"{a 

IFL0=4THENPRINT " ( 7 
IFL0=5THENPRINT" {8 


7880 

7890 

7900 

7910 

7920 
9000 
9002 
9003 

9004 
9005 
9010 
9020 
9030 
9050 
9060 
9065 
9070 
9100 
9110 
9115 

9120 
9140 
9150 
9160 
9170 
9180 
9190 
10000 

10005 
10010 

10020 

10030 

10045 
10060 
11100 

11105 

11110 

11180 

11185 

11190 

11195 
11200 
11210 
11230 
11240 
11250 

11260 

11261 

11262 

11263 


IFL0=6THENPRINT" [ 5 
ER" 
IPL0=7THENPRINT" {S 


SPACES} GRAND  MAST 
trem  171 

SPACES} WIZARD" 

trem  70 

SPACES} GRAND  WIZA 
trem  180 


trem  176 

trem  82 
trem  47 
DOWN} {6  RIGHT} BONUS  L 
: rem  63 


IFL0=8THENPRINT" f 5 

RD" 

IFLO=9THENPRINT" (6  SPACES }SUPER  STAR 

trem  57 
IFLO>9THENPRINT"{5  SPACES}HALL  OF  FA 
ME"  trem  65 

RETURN  trem  178 

REM  NEW  HIGH  SCORE  trem  51 

PRINT" {CLR}"  trem  47 

PRINT  "{CYN  He  DOWN}  {7  RIGHT}  NEW  HIGH 

trem  119 
PRINT" {4  DOWN} {8  RIGHT } SCORE " t rem  70 
F0RY=1T03  trem  82 

F0RN=1T05  : rem  69 

F0RD=1T05 tNEXT  trem  181 

POKE36876,N*20+150  trem  208 

NEXT  trem  13 

NEXTiPOKE36876,0  trem  225 

FORD=1TO30 tNEXT  trem  236 

RETURN 

REM  EXTRA  LIFE 
PRINT "{CLR}" 
PRINT" (CYN)  {10 
IFE" 

FORJ=100TO200  trem  0 

POKE36g76,J+50  trem  17 

NEXT  trem  14 

POKE36876,0  trem  105 

EX=EX+3  trem  165 

LI=LI+1  trem  149 

RETURN  trem  179 

DIM  PN(15),NNC18),JP(2,2) t PRINT" 

{CLR}E03"  trem  130 

SO=38400-VS  trem  170 

PRINT" {RED} {6  DOWN} [6  RIGHT} WELCOME 

TO"  srem  162 

PRINT" {CYN} {6  DOWN} {4  RIGHT}NERM  OF 

BEMER"  trem  111 

PRINT"[YEL}{4  down} {RIGHT) hit  TRIGG 

ER  TO  START"  trem  238 

GOSUB4000:IFFR<>0THENRETURN  trem  88 

GOTO10045  trem  42 

PRINT" {CLR} {CYN) {10  DOWN} REDEFINING 

{2  SPACES} CHARACTERS"         trem  91 

FORI =0TO2  t  FORJ=0TO2  t  READJP ( J , I ) t  NEX 

TJ,I  srem  79 

F0RI=7168T071 68+64*8 tPOKEI, PEEK (1+2 

5600) tNEXTI  trem  46 

FORI=0TO3  9iREADA:POKE7168+I+3  2*8,At 

NEXT  : rem  201 

FORI=0TO78READA! P0KE7 168+1+42 *8,AtN 

EXT  trem  154 

P0KE36869,255  trem  3 

P0KE36878, 14*16+15  trem  243 

F0RI=lT018iREADNN(I) iNEXT   trem  163 

FORI=lT015iREADPN(l) tNEXT   trem  163 

DATA  10,14,6,11,15,7,9,13,5  trem  62 

DATA  0,0,0,0,0,0,0,0        trem  198 

DATA  0,40,170,170,255,60,60,0- 

trem  163 
DATA  85,85,85,85,85,85,85,85 

trem  176 
DATA  170,190,190,190,190,190,170,17 
0  trem  19 

DATA  0,60,170,170,170,170,60,0 

trem  214 
DATA  0,40,85,85,85,85,40,0   trem  39 
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to  y<ttNT 


SAT  SCORE  INCREASE  WakRANTY 

BACKED  BY  FULL  CASH  REFUND 

The  best  Inveslment  you  can  make  in  the  education  your  most  precious  investment,  your  ctiildren. 
Call  or  write  for  details  about  Krell's  GREAT  AMER ICAN  SAT*  CONTEST  with  $50,000  in  prizes. 
SPECIAL  SCHOOL  DISCOUNT  PACKAGE  AVAILABLE. 

Krell  Software  Corporatian  has  no  ofticial  lies  witli  either  the  CEEB  or  Ihe  E.T.S,  of  Princeton.  New  Jersey. 

KreM's  College  Board  SAT  Preparation  Series  ol  microcornputer  programs  may  be  used  with  any  microcomputer  including 
Acorn.  Apple.  Atari.  Commodore  64.  PET.  Kaypro.  IBf^.  Rariio  Shack 

Krell  Sollware  Corporation  does  not  endorse  the  use  of  Ihe  SAT  exams  In  any  way.  We  l>elieve  that  both  the  SAT 
Examination  System  and  the  examinations  themselves  are  seriously  flawed.  However,  we  recognize  the  needs  tor 
Individual  students  to  perform  well  on  these  examinations  in  order  to  secure  college  entrance  and  scholarships. 

"SAT"  and  "College  Board"  aro  registered  Irademarks  and  service  marks  of  the  College  Enlrancc  Examination  Board. 


SOFTWARE  CORR 

The  slate  of  the  art  in  educational  computing 
1320  Stony  Brook  Road,  Stony  Brook,  New  York  11790  (516)  751-5139 


DEALER  INQUIRIES 

INVITED 

Call  or  Write 

for  FREE  CATALOG 


ACORN,  APPLE,  ATARI,  COMMODORE,  IBM,  KAYPRO,  RADIO  SHACK 


cf  Llrl.,  Appk  Compulfr  Corp.. 
ip..  Non-LliiiiAf  Sytlflrht.  Inc., 
CorD..  IBM. 


11270  RETURN  :rem  219 

12000  DATA  195,209,0,209,215,0,215,219,22 

5,219,225,219,209,0,195,209,0,209 

;rem  52 
12100  DATA  209,0,0,195,191,195,201,201,19 

5,0,0,0,207,207,209         i rem  108 

Program  4:  worm  or  Bemer— 64  Version 

Translation  by  Kevin  Martin,  Editorial  Programmer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

1  POKE52,48:POKE56,48:CLR         rrem  230 

2  POKE53270,PEEK(53270)AND15  : rem  62 
5  POKE53280,0:POKE53281,0  : rem  138 
10  GOTO5000  :rein  95 
100  S=PEEK( 56320)AND15:FORD=1TOSP;NEXT 

;rem  98 
110  IPS=7ORS=6ORS=5THENDX=1:DY=0:DI=1 sIFO 

D=2THENDX=-1:DY=0:DI=2         : rem  18 
120  IFS=11ORS=10ORS=9THENDX=-1:DY=0:DI=2: 

IFOD=1THENDX=1:DY=0:DI=1      : rem  108 
1 30  IFS=14THENDy=-l s  DX=0 : DI=4  t IF0D=3THEND 

I=3:Dy=l:DX=0  . rem  12  2 

140  1FS=13THENDY=1 : DX=0 i DI=3 : IP0D=4THENDI 

=4:DY=-1:DX=0  -rem  123 

145  PO=1024+XA+YA*40 :OD=DI : POKEPO, 42 : POKE 

P0+S0,L1  :rem  3 

150  XA=XA+DX:YA=YA+DY:L=LEN(XA$) ;XA?=XA$+ 

CHR?(XA) :YA5=YA5+CHR?{YA)       : rem  0 
155  Z=PEEK(1024+XA+YA*40) : IFZ <>32THEN200 

srem  73 

161  POKESO+1,40:POKESO+4,17        : rem  83 

162  PO=1024+XA+YA*40 : POKEPO , 42 : POKEPO+SO , 
10!POKESO+4,16:1FL<WOTHEN100    j rem  3 

190  PO=1024+ASC(XA$)+40*ASC(YA$) ;LL=LEN(X 
A$)-1jXA?=RIGHT$(XA$,LL)      :rem  238 

191  POKEPO, 32: POKEPO+SO, 0  ; rem  43 
195  yA$=RIGHT?(YA$,LL) :GOTO100     : rem  19 

200  POKESO+1 , 20 : POKESO+4 ,17: POKESO+4 , 1 6 

: rem  72 

201  PO=1024+XA+40*YA: POKEPO , 42  s  POKEPO+SO , 
10sGOSUB6600:IF2<>BUTHEN260   : rem  202 

210  WO=WO+15+3*LO:IFWO>240THENWO=240 

rrem  187 

220  XX=INT(RND{l)*36+2) :X=INT( RND( 1 ) *  18+3 
) !lFPEEK( 1024+XX+40*X) O32THEN220 

:rem   9 

221  SC=SC+100+LO* 7: POKESO+4, 55 : POKESO+4, 1 
7  :rem  223 

225  HI=HI-1 :GOSUB6600 : IFHI>0THEN229 

:rem  112 

226  PO=1024+20+40*2iPOKEPO, 160 s POKEPO+SO, 
0:PO=1024+20+21*40: POKEPO, 160   j rem  2 

227  POKEPO+SO, 0:PO=1024+40*12:POKEPO, 160: 
POKEPO+SO , 0 : POKESO+ 1,100: POKESO+4 , 1 7 

: rem  169 

228  PO=1024+40*12+39 : POKEPO , 160 : POKEPO+SO 
,0!GOTO100  :reni  242 

229  PO=1024+XX+X*40! POKEPO, BUG: POKEPO+SO, 
13  srem  163 

230  GOTO100  ;rem  95 
260  IFZ < > 160ANDLI > 1THENGOSUB75 00 : GOTO290 

:rem  242 
265  IFZO160THEN7500  :rem  146 

270  POKESO+1, 90: POKESO+4, 17        srem  89 

271  GOSUB7000:PRINT"{HOME} {24  DOWN}" 

srem  151 

27  5  F0RDE=1T024 : PRINT : POKESO+1 , DELs  POKESO 

+4, 17 sNEXT: POKESO+4, 16         srem  40 

280  LO=LO+1:WO=5:IFLO=12THEN1200  srem  177 


VIC,  64,  And 
TI-99/4A  Notes 

Patrick  Parrish,  Programming  Supervisor 

The  object  of  all  versions  of  "Worm  of  Bemer" 
is  to  safely  guide  Nerm  the  Worm  through 
11  levels,  or  rooms,  to  his  home.  Each  room, 
of  course,  offers  a  different  arrangement  of 
obstructing  walls.  To  advance  from  one  room 
to  another,  you  must  eat  five  magic  mush- 
rooms. If  you  bump  into  a  wall  or  into  your 
own  trail  along  the  way,  you  lose  a  life.  For- 
tunately, you  have  four  lives.  Every  third 
room,  you  are  awarded  another  life. 

The  VIC-20  version  of  Worm  of  Bemer  is 
a  two-part  program  requiring  at  least  8K  of 
additional  memory.  Type  in  Program  2  and 
SAVE  it.  If  you  are  using  tape,  delete  lines  10 
and  40  in  the  program  and  remove  the  REM 
in  line  11  before  you  SAVE  it.  Then  enter 
Program  3  and  SAVE  it  just  after  Program  2 
on  the  tape.  On  the  other  hand,  if  you  are 
using  a  disk  drive,  type  in  and  SAVE  Program 
2  as  it  is.  Next,  enter  Program  3  and  SAVE  it 
as"NM". 

To  LOAD  the  VIC  version  of  Worm  of 
Bemer  from  tape,  LOAD  Program  2  and  RUN 
it.  Program  2  will  automatically  LOAD  and 
RUN  Program  3.  To  LOAD  Worm  of  Bemer 
from  disk,  LOAD  and  RUN  Program  2.  Pro- 
gram 2  will  automatically  LOAD  Program  3 
and  place  the  cursor  over  the  RUN  command. 
When  the  disk  drive  stops  spinning,  press 
RETURN  (to  execute  the  RUN  command)  to 
start  the  game. 

The  VIC  version  of  Worm  of  Bemer,  like 
the  Atari  version,  is  played  with  a  joystick. 
The  64  version  (Program  4)  is  also  played 
with  a  joystick.  If  you  have  a  64,  plug  your 
joystick  into  port  2  to  play. 

Written  with  single  statement  lines,  the 
TI-99/4A  version  of  Worm  of  Bemer  (Program 
5)  RUNs  in  either  regular  or  Extended  BASIC. 
With  this  version,  use  keyboard  control  (E, 
S,  D,  and  X  keys,  with  the  arrows  on  them) 
to  maneuver  Nerm  through  each  room. 


281  L1=L1+1:IFL1>15THENL1=11  srem  99 

285  IFLOEXTHENGOSUB9100  srem  29 

287  PRINT" {CLR}":GOSUB  4100  srem  132 

290  GOSUB6600  srem  231 
300  ONLO  GOTO5020,400,500,550,600,700,800 

,450,550,1000,1100,1200  srem  176 

399  GOTO5015  :rem  169 

400  REM  SECOND  SCREEN  srem  244 
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No  matter  what  your  business 
or  interest,  with  Superbase  64 
you  have  a  totally  flexible 
'record' system,  as  big  as  you 
want  it,  as  fast  as  you  need  it. 


Create  your  own 
formats,  enter  your  records, 
change  layouts  and  datafiefds. 

Superbase  gives  you 
unrivalled  control  in  home  or  i 
office,  business  or  ^ 

professional  practice,  with 
a  range  of  features 
inctuding: 


Precision  Software  (USA),  Inc. 

Suite  11D 

1675  York  Avenue 


Pn-ri<:if,n     NEW  YORK 
ril-ClSlon     N.Y.  10128 

SoltWanC    (212)410  3418 


cammadare 


410  PORI=1024+5+10*40TO1024+35+10*40;POKE 

I,35:POKEI+SO,9:NEXT  : rem  253 

420  GOTO5020  : rem  150 

450  REM  SCREEN  : rem  61 

460  FORI=1024+5+10*40TO1024+35+10*40sPOKE 

I,35:POKEI+SO,9:NEXT  s rem  2 

465  FORI=1024+18+5*40TO1024+18+20*40STEP4 

0:POKEI,35:POKEI+SO,9iNEXT  : rem  177 
470  GOTO5020  :rem  155 

500  REM  THE  FOURTH  SCREEN  ; rem  242 
510  FORI=1024+5+5*40TO1024+35+5*40iPOKEI, 

35:POKEI+SO,9:NEXT  : rem  166 

520  FORI=1024+5+18*40TO1024+35+18*40 : POKE 

I,35:POKEI+SO,9:NEXT  jrem  15 

530  GOTO5020  t rem  152 

550  REM  FRAME  5  s rem  30 

560  PORI=1024+7+6*40TO1024+33+6*40;POKEI, 

35!POKEI+SO,9!NEXT  srem  173 

575  FORI=1024+18+7*40TO1024+18+20*40STEP4 

0:POKEI,35:POKEI+SO,9:NEXT  : rem  181 
580  GOTO5020  : rem  157 

600  REM  FRAME  6  -rem  27 

610  FORI=1024+1+10*40TO1024+18+10*40:POKE 

I,35!POKEI+SO,9:NEXT  : rem  252 

615  FORI=:1024+22+10*40TO1024+38+10*40:POK 

El,35:POKEI+SO,9:NEXT  ; rem  54 

620  GOTO5020  -rem  152 

700  REM  FRAME  7  -rem  29 

710  FORJ=6TO14:FORI=1024+6+J*40TOl024+12+ 

J*40 : POKEI , 35 : POKEI+SO, 9  sNEXTs  rem  180 
715  PORI=1024+20+J*40TO1024+32+J*40 : POKEI 

,35:POKEl+SO,9iNEXT;NEXT  : rem  122 
720  GOTO  5020  ;rem  153 

800  REM  FRAME  8  :rem  31 

811  FORI=1024+l+8*40TO1024+18+8*40 : POKEI , 
35: POKEI+SO, 9 :NEXT  : rem  173 

812  FORI=1024+1+15*40TO1024+18+15*40:POKE 
I, 35: POKEI+SO, 9: NEXT  : rem  10 

813  FORI=1024+15+12*40TO1024+3B+12*40:POK 
EI, 35: POKEI+SO, 9: NEXT  srem  60 

890  GOTO5020  : rem  161 

1000  FORJ=4TO19:FORI=1024+l+J*40TO1024+37 

+J*40 : POKEI , 35 : POKEI+SO , 9 : NEXT : NEXT 

:rem  91 
1005  FORJ=4TOl9:FORI=1024+l+J*40TO1024+22 

+J*40 : POKEI , 32  j  POKEI+SO , 9 :NEXT : NEXT 

: rem  87 
1010  GOTO5020  :rem  194 

1100  FORJ=4TO19:FORI=1024+l+J*40TO1024+37 

+J* 40 :  POKEI ,  35  :  POKEI+SO ,  9  ;  NEXT  :  NEXT 

:rem  92 
1105  FORJ=4TO19:FORI=1024+l+J*40TO1024+30 

+J*40 : POKEI , 32 : POKEI+SO , 9 : NEXT : NEXT 

: rem  87 
1110  GOTO400  :rem  144 

1200  REM  YOU  WIN  : rem  146 

1205  F0RZZ=1T03  : rem  167 

1210  PRINT"£CLR] [8  DOWN] {14  RIGHT }NERM'S 

{SPACE} HOME"  ;rem  27 

1212  PRINT" {5  DOWN} {15  RIGHT) THANK  YOU" 

I  rem  18 
1215  P0RG=lTO5  :rem  61 

1220  FORI=1TO10  srem  103 

1229  POKESO+1, I+6:POKESO+4,17  : rem  207 
1240  NEXT: NEXT  : rem  127 

1245  FORI=1TO200: POKESO+1, I : POKESO+4, 17 sN 

EXT  J  rem  242 

1250  NEXT:GOTO7700  : rem  72 

4100  FORI=56216T056295:POKEI,LltPOKEI-SO, 

36: NEXT: RETURN  : rem  232 

5000  REM  UP  THE  GAME  : rem  73 
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64  version  of  "Worm  of  Beiiwr. " 

5005  GOSUB10000;GOSUB11100:BUG=33:rem  163 

5011  SP=35:LI=4;SC=0:LO=1:GOSUB5500!HI=5: 
W0=5:EX=2:L1=11  :rem  126 

5012  POKE53270,PEEK(53270)OR16  :rem  163 
5015  PRINT" tCLR}":GOSUB6500       : rem  180 

5020  XA$="":YAS="":XB$="":YB$="":XA=20:YA 
=19:DX=0  :rem  161 

5021  IFLO=3THENYA=18  : rem  209 
5025  DY=-l:T=0:lFHI<0THENHi=0  ; rem  242 
5030  DI=4:IFHI>5THENHI=5           :rem  197 

5050  FORI=1024+40*2TO1024+39+40*2:POKEI,3 
5:POKEI+19*40,35:POKEI+SO,9  : rem  104 

5051  POKEI+SO+19*40,9:NEXT         : rem  17 

5055  FORI=1024+40*2TO1024+40*20STEP40 : POK 
EI,35:POKEI+39,35:POKEI+SO,9  i rem  26 

5056  POKEI +SO+39, 9:NEXT: IFHI >0THEN5060 

: rem  76 

5057  1=1024+2 0+40* 2: POKEI, 160: POKEI +80,0: 
1=1024+20+21*40  t POKEI , 160 :POKEI+SO, 0 

:rem  102 

5058  POKE1024+12*40,160:FOKE1024+12*40+SO 
,0  :rem  28 

5059  POKE1024+12*40+39,160:POKE1024+12*40 
+SO+39,0:GOSUB4100:GOTO150   : rem  211 

5060  XX=RND( 1 ) *36+2 :X=RND( 1 )*18+3 ; IFPEEK ( 
1024+XX+X*40)  O32THEN5060    :  rem  255 

5065  POKE1024+XX+X*40,BU;POKE1024+XX+X*40 
+S0, 13  :rem  238 

5070  GOSUB4100  : rem  17 

5085  GOTO150  :rem  161 

5500  PRINT" {CLR}"  : rem  46 

5510  PRINT" {11  DOWN} {15  RIGHT }GET  READY" 

: rem  95 
5540  F0RX=lT014s POKESO+1, NN{X) : POKESO+4, 1 


7 : F0RD  =  1T01 2  0 : NEXT  s  NEXT 
5545  POKESO+4,16 
55  50  RETURN 

6500  REM  REDEFINING  SCREEN 
6510  POKESO+4,16 
6575  GOSUB  6600 
6580  RETURN 
6600  REM  PRINT  SCORE 

6605  PRINT "{YEL} {HOME} SCORE  " ; SC 

6606  PRINT"  {HOMEH30  R1GHT}R00M 


:rem  84 
t rem  150 
: rem  175 

: rem  74 
srem  143 

: rem  35 
srem  179 
: rem  185 
srem  160 
;LO 

srem  47 

;HIr"{l7  SPACES )LIV 

:  rem  9 


6610  PRINT "MUSHROOMS 

ES  ";LI 

6620  RETURN  :  rem  174 

7000  REM  CLEAN  UP  THE  CENTIPEDE    : rem  37 

7002  SP=SP~5  :rem  174 

7004  GOSUB  6600:HI=5  : rem  84 


AARDUARK  LTD 


VIDEO  ADVENTURES 


TM 


DUNGEONS  GF  MAGDARR  -  Serious 
D  of  D  for  up  to  8  players. 
Features  full  3d  GRAPHICS! 
You  get  a  choice  of  several 
characters  that  grow  from 
game  to  game  and  are 
interchangeable  with  char- 
acters from  our  famous 
Dungeons  of  Death  game.  A 
real  dungeon  with  ievel  after 
level  of  monsters  to  conquer 
and  treasures  to  find  -  all  in 
hi-res  3d  graphics. 

AvailablE  On:  TRSBOC,  IBM  PC,  CMD64 


BAG-IT-MAN  ■  The  ultimate 
arcade  game  for  TRSBOC  or 
MCD64.  This  one  has  three 
screens  full  of  BAGS  OF 
GOLD,  CARTS  &  ELE- 
VATORS TO  RIDE  IN,  MINE 
SHAFTS,  and  TWO  NASTY 
GUARDS.  Great  sound  and 
color  and  continuous 
excitement. 

Available  On:  laSSdC  32K.  CMD64 

TAPE  SI9.95  DISK  iZA.K 


TAPE  Sm95 


DISK  S24.9S 


1- 

QUEST  ■  A  different  kind  of 
Graphic  Adventure,  it  is 
played  on  a  computer 
generated  mape  of  Alesia. 
You'll  have  to  build  an  army 
and  feed  them  through 
combat,  bargaining,  explo- 
ration of  ruins  and  temples, 
and  outright  banditry!  Takes 
2-5  hours  to  play  and  is 
different  each  time. 

Available  On:  laSSOC  16K,  CMD64,  VII20 13)^  MCIO 
16K.  TI99  lEXT.  BASIC|.  IBMPC 

TAPE  S14.95  DISK  119.95 


IVIARS  -  Your  ship  crashed  on 
the  Red  Plane  and  you  have 
to  get  home.  You  will  have  to 
explore  a  Martian  City, 
repair  your  ship,  and  deal 
with  possibly  hostile  aliens  to 
get  home  again.  This  is 
recommended  as  a  first 
Adventure.  It  is  in  no  way 
simple  -  playing  time 
normally  runs  from  30  to  50 
hours,  but  it  lets  you  try  out 
Adventuring  before  you 
battle  the  realty  tough  ones. 
Full  Graphics  Adventure. 

Available  On:  TRSSOC.  CMD  64.  IBM  PC 


TAPE  Sia95 


DISK  $24.95 


STAHFiRE  -  If  you  enjoyed 
StarRaiders  or  StarWars, 
you  will  love  Starfire.  It  is  not 
a  copy,  but  the  best  shoot- 
em-up,  see  them  in  the 
window  space  game  on  the 
CMD64  or  TRS80C.  The 
fantastic  graphics  will  put 
you  right  in  the  controf  room 
as  you  hyperspace  from 
quadrant  to  quadrant 
fighting  the  aliens  and 
protecting  your  bases. 

Available  On:  1RS80C  ISK.  CMC54 


TAPE  S19.95 


DISK  $24.95 


PYRAMID  •  ONE  OF  THE  TOUGHEST 
ADVENTURES.  Average  time 
through  the  pyramid  is  50  - 
70  hours.  Clues  are 
everywhere  and  some 
ingenious  problems  make 
this  popular  around  the 
world.  FULL  GRAPHIC 
ADVENTURE. 

Availatile  On:  TRS80C 16K.  CHDM,  MClO  16K.  IBM  PC 

TAPE  S1I95  DISK  $24,95 


NEWI   GRAPHIC  ADVENTURES 


STflRFIREl 


AARDUARK  offers  over  120  original  high  quality  programs. 
Send  one  dollar  for  a  current  catalog  and  receive  a  SI  .00 
gift  certificate  good  towards  your  next  purchase. 


Authors -AAHDVARK  pays  top  dollar  for  high  quality 
programs.  Send  a  copy  today  for  a  personal  review  and 
editorial  help. 


TO  ORDER:  Send  amount  indicsled  plus  S2.00  shipping,  per  order.  Include  quantily  desired  and  your  preference  dI  tape  or  disk. 
I  sure  to  Indicate  type  ol  system  and  amount  ol  memory.  Wtien  using  cliarge  card  to  order  by  mall,  be  sure  to  Include  expiration  date. 


CHARGE  CARDS 
WELCOME 


1-313-669-3110 


PHONE  ORDERS  ACCEPTED 
S:00  a.m.  to  8:00  p.m.  E.S.T..  MON-FRI 


AARDVARK  /^OcctH^  S<yituAane 


2362  S.  COIUIMERCE  •  WALLED  LAKE.  Ml  48086  •  (313)  669-3110 


CIVI064    /    TRSBOC    /    IBMPC    /    VIC20    /    1199 


7005  L=LEN(XA$)  : rem  66 

7010  F0RI=1T0L-1  .-rem  179 

7020  POKESO+1 , 1 : POKESO+4, 17 i FORQQ=1TO10  sN 


EXT 


7200 

7210 
7500 
7510 

7515 


7521 
7525 
7530 


7550 
7560 
7599 
7700 
7705 
7710 

7715 

7718 
7720 

7730 

7735 
7736 


7745 
7790 

7783 


: rem  23 
LL=LEN( 
:rem  37 
POKEPO+ 
!rem  17 
:rem  5 
rem  170 


THE 


7190  PO=1024+ASCCXA5)+40*ASC(YA$) 
XA$)-liXA$=RIGHT$(XA$,LL) 

7195  YA$=RIGHT$(YA$,LL):POKEPO,32 
S0,1 

NEXTsPOKESO+4,16 
RETURN 

REM  OOPS  trem  241 

PRINT" {CLR] t PUR]"  :rem205 

SP=SP-5  srem  183 

7520  PRINT"{12  DOWN) [18  RIGHTJOOPS" 

:rein  182 
LI=LI-1  :rem  148 

FORDE=1TO20:NEXT  : rem  47 

FORDE=1TO10 : POKESO+1 , DE*  20 ; POKESO+4 , 
17iFORQQ=lTO10:NEXT:NEXTsPOKESO+4,16 

srem  123 
PORDE=1TO20:NEXT  : rem  45 

IFLK1THEN7700  srem  96 

PRINT" {CLR}": RETURN  : rem  92 

REM  THE  GAMES  OVER  -rem  60 

POKESO+4, 16  :rem  150 

PRINT" {CLR) ":POKE53270,PEEK( 53270) AN 
D15  :rem  121 

IF  SO HSTHENHS=SC;GOSUB9000: PRINT" 
{CLR}B83"  :rem  43 

PRINT" {6  DOWN} {18  RIGHT } NERM" : rem  74 
PRINT"{YEL) (4  DOWN} YOUR  SCORE  " ; SC 

:rem  31 
PRINT"g6E[4  DOWN]HIGH  SCORE  " r HS 

:rem  241 
GOSUB  7800 

PRINT"{WHT} {2  DOWN} PRESS 
TO  PLAY  AGAIN,  Q=QUIT" 

7740  FORX=1T015:POKESO+1,PN(X 
7 ! FORD=1TO100 :NEXT  sNEXT 
POKESO+4, 16 
S=PEEK(56320)AND16:IFS=0THEN5011 

:rem  -149 
IFPEEK(197)=62THENPOKE198,0:SYS2048 

:rem  135 

7785  GOTO7780  :rem  234 

7800  REM  RANK  THE  GAMER  srem  44 

7810  PRINT"{CYN} {2  DOWN} {7  SPACES}YOUR  NE 
W  RANK  IS  ";  : rem  158 

IFL0=1THENPRINT"ZER0"  srem  169 
IFL0=2THENPRINT "ROOKIE"  srem  52 
IFL0=3THENPRINT "NOVICE"  srem  49 
IFL0=4THENPRINT "AVERAGE"  srem  106 
IFL0=5THENPRINT "MASTER"  srem  61 
IFL0=6THENPRINT "GRAND  MASTER" 

srem  171 
IFL0=7THENPRINT"WIZARD"  srem  70 
IFL0=8THENPRINT "GRAND  WI2ARD" 

srem  180 
IFL0=9THENPRINT" SUPER  STAR"  srem  57 
IFL0>9THENPRINT"HALL  OF  FAME" srem  65 
RETURN  srem  178 

REM  NEW  HIGH  SCORE  srem  51 

PRINT " { CLR } "  : rem  47 

PRINT"{CYN}{8  DOWN} {16  RIGHT }NEW  HIG 
H"  srem  158 

PRINT" {4  DOWN} {17  RIGHT} SCORE" 

srem  75 
P0RY=1T03  srem  82 

FORN=1T05  srem  69 

FORD=1T05  s  POKESO+1 , D*  20  j  POKESO+4 ,17s 
NEXT  srem  22 

COMPUTE!  April1984 


srem  37 

TRIGGER 

s  rem  13  5 

: POKESO+4, 1 

srem  89 

srem  154 


7820 
7830 
7840 
7850 
7860 
7870 

7880 
7890 

7900 
7910 
7920 
9000 
9002 
9003 

9004 

9005 

9010 
9020 


90 


9030 
9050 
9060 
9065 
9070 
9100 
9110 
9115 

9120 
9140 
9150 
9160 
9170 
9180 
9190 
10000 

10005 

10010 

10020 

10025 

10030 

10045 

10060 
11100 

11109 
11110 

11120 
11180 

11185 

11190 

11200 
11210 
11240 
11250 
11260 

11261 

11262 

11263 

11270 
12000 

12100 


POKESO+1, N*30:POKESO+4, 17    srem  254 

NEXT  srem  13 

NEXT  srem  14 

FORD=lTO30sNEXT  srem  236 

RETURN  srem  176 

REM  EXTRA  LIFE  srem  82 

PRINT" {CLR}"  :rem  47 


PRINT" {CYN} {12  DOWN} (15  RIGHT}B0NUS 
[SPACE}LIFE"  :rem  102 

FORJ=100TO200  srem  0 

POKESO+1, J s POKESO+4, 17       srem  111 
NEXT  srem  14 

POKESO+4, 16  srem  147 

EX=EX+3  srem  166 

LI=LI+1  srem  149 

RETURN  srem  179 

DIM  PN(15),NN(18):PRINT"{CLR}E83" 

srem  219 
SO=54272  s  POKESO+24, 15 : POKESO+5,  17  s  P 
OKESO+6,241sPOKESO,100  srem  253 
PRINT" {6  DOWN} {15  RIGHT} WELCOME  TO" 

srem  139 
PRINT"{CYN}E4  DOWN} {14  RIGHT}NERM  0 
F  BEMER"  srem  111 

PRINT"gl3{3  DOWN} [13  RIGHT}USE  JO 
YSTICK  #2"  srem  168 

PRINT"E63{6  down} {11  RIGHT} HIT  TR 
IGGER  TO  START"  srem  45 

S=PEEK( 56320 )AND16  s IFS=0THENRETURN 

srem  210 
GOTO10045  srem  42 

PRINT"{CLR}{CYN}E12  DOWN } { 9  RIGHT}R 
EDEPINING{2  SPACES} CHARACTERS" 

srem  130 
POKE56334,PEEK(56334)AND254  5POKEl,P 
EEK(1)AND251  srem  29 

F0RI=12288T01 2 288+64*8 sPOKEI, PEEK {I 
+40960) sNEXTI  srem  146 

POKEl,PEEK(l)OR4sPOKE56334,PEEK(56j 
34)ORl  :rem  228 

FORI=0TO39  s  READAs  POKEl 2288+1  +  32*8 , A 
sNEXT  srem  248 

FORI=0TO7: READAs POKE12 288+1+42*8, As 
NEXT  srem  201 

POKE53272, ( PEEK( 53272 )AND240)+12 

srem  27 
F0RI=1T018:READNN(I) sNEXT  srem  163 
F0RI=1T015!READPN(I) :NEXT  srem  163 
UATA  0,0,0,0,0,0,0,0  srem  198 
DATA  0,20,85,85,255,40,40,0  srem  71 
DATA  85,85,85,85,85,85,85,85 

srem  176 
DATA  170, 190, 190, 190, 190, 190, 170, 17 
0  srem  19 

DATA  255,255,255,255,255,255,255,25 
5  s  rem  42 

DATA  0,20,255,255,255,255,20,0 

srem  223 
RETURN  srem  219 

DATA  3  3,44,0,44,50,0,50,56,67,56,67 
,56,44,0,33,44,0,44  srem  114 
DATA  44,0,0,33,31,33,37,37,33,0,0,0 
,42,42,44  srem  108 


Program  5:  worm  Of  Bemer— TI  Version 

Translation  bv  Patrick  Parrish,  Programming  Supervisor 

3  DIM  NN (29) , RANK* ( 12) 

5  GOSUB  11000 

10  GOTO  5000 

20  FOR  1=1  TO  LEN<H*) 


SPECIALS  on  INTEGRATED  CIRCUITS 

6502  <§>  4.90  6520  §  4.00  6522  @  5.00  4116  @  1,85 
2532  (fi  5.90  2716  (3  4.45  6116  |Si  6.45  4164  1^  6.90 


Anchor 
Automation 
Signalman 
MODEIVIS 

FREE  SOURCE  MEMBERSHIP  WITH  VOLKSMODEM 

Alt  Signalman  Modems  are  Direct  Connect,  and  provide  ttie 
tiesl  price-perlormance  values,  Duier/OEM  iiqulrtet  Inthed 
Volksmodein  wKli  computer  cible  68 

Mark  VII  Auto  Dial/Auto  Answer  99 


t^ark  XII  Sman  Model  1200/300 

299 

DC  HAVES  Smirtmgdem 

DC  Hayes  Smartmodem  1200/300 

219 

519 

. 

■ 

r^^'^^"' 

/"' 

I 

] 

FROM  QUEEN  for  VIC 

Apple  Emulator  for  ComrnDdorc  64 
STAT  Statistics  Pii:l(age  lor  CB4 
Sdlld  Oak  Z  Level  Stand  lor  C64  or  VIC 
C64/VIC  Switch  (networking) 
BACKUP  Vl,0  tape  copier  far  C64  or  VIC 
CARD80ARD/6  Molhertxiard  -  VIC 
CARDBOARD/5  Mottierboard  -  C64 
CARD  PRINT  G  Printer  InL  vfitti  Graptiics 
CARD  PRINT  B  Printer  Interlace— C64/VIC 
CARDBDARD/3S  l^otherlxiard  ■  VIC 
CARDCO  C64/VIC  Calculator  Keypad 
CARDRAM/16  RAM  Expansion  -  VIC 

Complete  CARDCQ  Hue  in  stock 

CIE  and  VIE  IEEE  Interfaces  in  stock 

MSD  SuperOrite  for  C64  or  IEEE 

MAE  Assembler  for  C64 

Koili  Pad  ToiTcii  Tablet— C64  or  VIC 

CBC4/lZAnalogtoDigl)aMchai;/12  bit 

MULTIPLANfDrC54 

Dusi  Cover  lor  C64  or  VIC 

Grand  Master  Chess  for  064 

COMAL  bsgiiajie  for  C64 

with  sprites,  color  graphics,  sound,  turtle  graphic 
Super  SusCtril  by  Battertes  Included 
ULTRA  BASIC  -  64  with  Turtle  Graphics 
Super  Disk  Utility  -  C64  -  includes  tHckup 
MicroChess  -  C64  -  8  levels  of  play 
HES  MBDEM  with  softwire 
Commodore  64  Programmers  Reference  Guide 
WordPro  34-/64  with  Spellright 
VIController  (also  C64|  -  BSR  Controller 
COM  VOICE  Synthesizer  (or  C54  or  VIC 
VIC  products  in  stock-  call  for  extra  discounts. 

M?[Jj?i*!l™JtLyi!I.M.Pl'!J!?.A'M. 


170 

Call 
95 
29 
129 
20 
64 
56 
72 
40 
25 
32 
44 


365 
50 
75 

199 

79 

6 

24 
17 

159 
37 
19 
17 
5S 
16 
85 
50 

139 


APPLE— FRANKLIN  ITEMS 

FRANKLIN— CDinplete  line  In  stock 

QUENTIN  Drives  for  Appte/Fnnklln  219 

Swapper  Stopper  26 

automatic  switch  tstween  paddles  and  joystick 

KRAFT  Apple  Joystick  4D 

Kraft  Apple  Paddle  Pair  30 

Koala  Pad  Toucii  Tablet-Appie/Frsnkllii  90 
SPINNAKER  Software  In  stock 
Electninlc  Arts  Soitware  in  stock 

16K  RAH  Card  for  Apple  59 

Multiplan— Mlcrosofl  185 

Solid  Oak  2  Level  Stand  for  Apple  29 

Serial  Card  lor  Apple  89 

MPC  RAM/80  coiuitin  ctni  lor  lie  lAP/TlCIl  1 29 

Z80  Sottcard  and  CPIM  (MicrosoH)  235 

RANA  Elite  I  with  Controller  389 

Parallel  Printer  Interlace/Cable  69 
Micmlek  and  MPC  Interfaces  In  stock 

IjrapplEt  +  Interlace  129 

DC  Hayes  f^icromodem  (I  299 

PFS:  File  or  PFS:  Repeit  or  PFS:  Gnpt  95 

Videx  80  Column  Card  209 

Apple  Blue  Book  19 


commodore 


See  us  for  Pei^onai  Busiiteu,  anil  Eiiucitianil 
requirenents.  Educationil  Discounts  anilitile. 


PETSCAN  I      $245  base  price 

Allows  you  to  connect  up  to  30  CBM/PET  Computers  to 
shared  disk  drives  and  printers  Consplelely  transparent  to  the 
user.  Perfect  for  schools  or  multiple  *otd  processing  con- 
ligurations.  Base  configuration  supporls  2  computers.  Addi- 
tional computer  hookups  S100  each. 


COMPACK/STCP 


$115 


Intelligent  Terminal  Package  lor  PET,  C8M.  C64 

Includes  ACIA  Hardware  /  STCP  Software 

SCREENMAKER  80  CoTuinii  AdapterlorC64     139 

provide  big  screen  capability  for  business  applications. 

Copy-Wrtter  WonI  Processor  for  C64  49 

Full-featured  packaae  with  800  lines  of  text  in  memory. 
Includes  double  column  printing,  graptiic  capabilily,  full  prirv 
ter  support 

Special  Scfeeimiaker/Cppy-Wiiler  enmho        179 

VICTORY  Software  lor  VtC  aid  C64 

Metamorphosis            16      Creator's  Revenge  16 

Labyrinth  of  Creator       1 6       Galactic  Conquest  I B 

Kongo  Koi^                  16       Annihilator  16 

Ctiomper  Man               16       Grave  Robbers  1 3 

Bounty  Hunter               16       Adveflture  Pack  I  Of  II  16 


PAPER  CLIP  Word  Processor-  CBM/C64 
DHACLE  Data  Base  from  Batteries  Included 
SPINNAKER  Software  C64.  Applet  IBM,  Atari 
Compulel's  First  Book  of  PfT/CBM 
POWER  ROM  Utilities  for  PET/CBM 
WordPro  4-1-  -  8032,  disK  printer 
VISICALC  for  PET,  ATARI  or  Apple 


75 
109 

11 

78 

295 

189 

Compute's  First  Book  of  64  Sound  &  Graptiics  10.40 

SM-KIT  enliinced  PET/C8M  ROM  litilitles  40 

PET  Spacemaker  II  ROM  Switch  36 

Computes  First  Book  ol  Games  10.40 

DustCoverfor  PET,  CBM.  4040,  or  8050  8 

CmC  Interfaces  (ADA1BO0,  ADA1450.  SADI  in  stock] 
Compute's  Reference  Guide  to  64  Grapiiics  10.40 

Computer's  Machine  Language  for  Beginners  1 1 

HES  Software  and  Hardware  In  stock 
UMI  products  In  stock 

FlexFile  for  PET/CBM/C64  $59 

DataBase,  Report  Writer  with  calculations,  Mailing  Lists. 
Easy  to  use,  and  can  be  modified. 

raRTH  for"pEf/C"64  full  FIG"  model  -  Cargiie/Riley  50 
includes  all  FORTH  79  Standard  extensions,  stmclured  6502 
assembler  with  nested  decision  macros,  standard  16x64 
screens,  agility  to  read/write  BASIC  sequential  tiles,  sample 
programs,  introductory  -f  reference  manual. 
Metacomplller  for  FORTH  for  independent  object  code  30 
Roating  Point  |or  FORTH 20 

KHMM'PASCALTvToVPEt/CBH'/CM  ~       '  99' 

Wrtually  full  Jensen-Wirth  implementation  is  now  suitable  for 

advanced  placemen!  courses. 

EARL  (or  PET/CBM   Disk-bajed_ASSEMBLER       _   65 

Supeifirepliics  -  BASIC  bnguige  Eitensleos  45 

Fast  graphics,  sound,  turtle  graphics  routines  for  PET/CBM. 

flAM7RdHtorPET/CBM^"~"~'~'"j^^ 
CBpSiic'fomain  Software- C64/PET277lsk"s  ""  75* 

STAT  for  PET/CaM/CE4  and  Apple  95 

Comprelieiisive  Statistical  Analysis  Routines 

Includes  complete  file  handling  capabilities,  summary  statis- 
tics, conlidencB  intervals,  hypothesis  tests,  exponential  mean 
tests,  multiple  and  power  series  regression,  analysis  of  vari- 
ance, histograms,  and  rwrhpararretric  tests  _ 

PigeMate  SO^Command  WoTd  Preussor  40 

Full-leaiured  package  fof  all  Commodore  computers  (incl.  VIC 
witri  16K).  Full  screen  editing,  and  supports  disk,  tape,  and 
all  printers. 


DISK 
SPECIALS 


Scotch(3M)5"ss/dd 
Scotct>|3M)5"[is/dd 
Scotch(3M)8"ss/sd 
Scotch  (3M|  8"  ss/dd 


10/2.20  50/2.00  100/1.95 

10/2.90  50/2,65  100/2.60 

10/2.30  50/2.10  100/2.06 

10/2.85  50/2.70  100/2.65 


We  stock  VERBATIM  DISKS 

Write  for  Dealer  and  OEM  prices, 

Sentinal  5"  ss/dd  10/1.90  50/1,85  100/1.75 

Sentinal  5"  ds/dd  10/2.55  50/2.50  100/2.35 


We  stock  Dysan  disks 


Wabash  5"  ss/sd 
Wabash  5"  ss/dd 
Wabash  5"  Os/dd 


10/1.50  50/1,45  100/1.40 
10/1.90  50/1,85  100/1.75 
10/2.60  50/2.50  100/2.40 


We  stock  MAXELL  DISKS 

Write  for  dealer  and  OEM  prices. 

Disk  Storage  Pages     1 0  for  S4    HuO  Rings  50  for  S6 
DisK  bbrary  Cases     8"— 3.00  5"— 2.25 
Head  Disk  Cleaning  Kits    12 
AMARAY  Disk  Storage  Systems  in  stock 
Innovative  Concepts  FLIP  'N'  FILES  in  stock. 


CASSEHE  TAPES— AGFA  PE-Sn  PREMIUM 

C-10  10/ .61       50/ .58        100/ .50 

C-30  10/ .85      50/ .82        100/ .70 


Bia 


Hewlett  Packard 

Write  or  call  for  prices_ 

DATASHIELO  BACKUP  POWER  SOURCE      $265 

Battery  back  up  Uninteroiplible  Power  Supply  with  surge  and 
noise  filtering.  Ttie  answer  to  your  powef  probleiTis. 

CALL  FOR  PC  PHICES 

MuiiPlae— IBM  or  Apple 

Quadboard  for  IBM  available 

KOAtJ^  PAD  Touch  Tablets— Apple,  Atari,  IBM.  CBM 

Peachtett  500D  Software  Package 

PFS  Software  lor  IBM  and  Apple  in  stock 

SPINNAKER  Software  C64/VIC.  Apple.  IBM,  Aliri 

VOTRAX  Personal  Speech  System 

BMC  9191  Color  Mooitor 

BMC  12A  12"  Green  Monitor 

Oynti  (Bnitbetl  DX-15  Daisy  Wbcel  Prfater 
Sntker  HR-25  Daisy  Wkeel  Priater  |25  cpaj 

Itoh  Prowriter  Parallel  Printer 

Pinaiooic  1090  Printer  wItt  Correspgadinca  Mult 

Daisywriter  2000  with  46K  butler 

Gemini  I DX 

EPSON,  Okidata,  Star  Micronics  priilen  li  itick 

USI  CompuMOD  4   R  F  Modulator 

We  Slock  AMOEK  MonHors 

AmdekOXy-100  Plotter 

A  P  Products 

COMPUTER  COVERUPS  IN  STOCK 

BROOKS  B  Dntiat  Surge  Sappnsnr/Niiu  FItir 

Surge  Suppressof-6  outlet 

Electrohome  1302-2 13"  Hi-res  RGB  Monita 

Panasonic  12"  Ivtonitor  (20  MH;(  with  audio 

Synertek  SYM-1  Microcsmpater 


185 


209 


280 
229 
79 
469 
769 
379 
279 
1020 
289 

29 

590 
15%  OFF 

M 

29 
335 
f32 
189 


ALL  BOOK  and  SDFTW<lflE  PfllCES  DISCOUItTEfl 

USi  Video  Mtniten— Grata  or  AMBER  20  MHi  K-nt 
Dealer  aid  OEM  iMilries  initid 


Tjemnf 


data 
systems 


ZVM-122A                     99       ZVM-123G  89 

ZVM-131                    300       ZVM.t35  490 

Z29  Terminal  |D£C  and  ADM  compatiblel  680 

ZI-1 0  Intel  Tefminal  witli  Serial  Port  340 

Z1 00  1 6- bit/8-bit  System  CALL 
We  stock  entire  Zenith  line 


215-822-7727 

252  Bethlehem  Pike 
Col  mar,  PA  189 15 


A  B  Computers 


ATARI -WE  STOCK  ENURE  LIME 

SPINNAKER  ancj  Broderbund  Software  in  Stixk 


WRITE  FOR  CATALOG.  Add  SI. 50  per  order  for  United  Parcel. 
We  pay  balance  of  UPS  surface  shipping  ctiarges  on  all  prepaid  orders 
(add  extra  for  mail,  APO/FPO.  air)  Prices  include  cash  discount, 
, Regular  prices  slightly  higher.  Prices  subject  to  ctiange 


SCtCRE      !       1233  RDDM     i      3 

tiySHRDDMS     t      2  LIVES     s      3 


BtSBBQSBQSBISIDBEISlBISSJBGiaBBEl 


BESSBBQBBSBElSBBBBiSEIBGJBSBEl 


aE3aE)BBBaBBE>BBBBBBaBBHElBBBBBEIB 


iii 


30 


TJ  rersJOH  of  "Worm  of  Bemer." 

HCHAR (RDW,COL+l, ASC (SEG*  CH« 

)  ) 

I 

N 

KEY (0, K, ST) 
KOi^S)  +  <OD  =  2)  THEN  110 


40 
100 
105 
106 
107 
10S 
1  1  0 
1  1 
12 
13 
15 
16 
17 
1  18 
120 
125 
130 
135 
140 
145 
150 
152 
154 
156 
158 
160 
162 
164 
166 
163 
170 
172 
174 
176 
1B0 
200 
201 
203 
205 
210 
212 
214 
215 
216 
21S 
220 
222 


CALL 
,1,1) 
NEXT 
RETUR 
CALL 
IF  < 
DX  =  1 
DY  =  0 
DI  =  1 
IF  ( 
DX  =  - 
DY  =  0 
DI=2 
IF  ( 
DY  =  - 
DX  =  0 
DI=4 
IF  ( 
DY=1 
DX  =  0 
DI=3 
CALL 
OD  =  D 
XA=X 
YA=Y 
L  =  LE 
XA*  = 
YA*  = 
CALL 
IF  Z 
CALL 
CALL 
IF  L 
CALL 
LL  =  L 
XA*  = 
YA*  = 
GOTO 
CALL 
CALL 
GOSU 
IF  Z 
WD  =  W 
IF  W 
WD=J 
RAND 
XX  =  R 
X  =  RN 
CALL 
IF  H 


K083)  +  (OD=l  )  THEN  115 
1 


K06V)  +  (OD  =  3)  THEN  120 
1 


KOB8)  +  (DD  =  4>  THEN  140 


HCHAR (YA, XA, 136) 
I 

A  + 
A  + 
N  C 
XA 
YA 

B 


H 

S 

<w 

H 

EN 

SE 

SE 

1 

S 

H 

B 

0  + 
0< 
85 
OM 
ND 
D« 
G 
1< 


DX 

DY 

XA 

*S< 

*?< 

CH 

32 

CH 

OU 

O 

CH 

<X 

B« 

e* 

00 

gu 

CH 
66 
MU 
15 
IB 


*) 

CHR* ( XA) 

CHR«  < YA) 

AR  C YA,  XA,  2 ) 

THEN  200 
AR  <YA,  XA,  128) 
ND  < 1  , 622, 2) 
THEN  100 

AR<ASC(YA*) .ASC(XA*) ,32) 
A*)  -1 

<XA*, 2, LL) 
(YA*, 2. LL) 

ND ( 100, 311,2) 

AR  (  YA,  XA,  128) 

00 

SH  THEN  260 

+  2*LO 

THEN  215 


IZE 

*28  +  3 

19  +  4 

CHAR  <X, XX,H1 ) 

>32  THEN  216 


224 
228 
230 
232 
234 
236 
2  38 
2  40 
241 
242 
243 
244 
245 
250 
260 
261 
264 
266 
270 
272 
275 
277 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
300 

399 
400 
410 
420 
449 
450 
455 
460 
499 
500 
50  5 
510 
549 
550 
555 
560 
599 
600 
610 
620 
699 
700 
710 
715 
720 
725 
799 
800 
805 
310 
815 
999 
100 
101 
102 


SC=SC+100+LO*7 
HI=HI~1 
60SUB  6600 
IF  HI>0  THEN  245 
CALL  HCHAR <3,  17,  104) 
CALL  HCHAR ( 13, 2, 104) 
CALL  HCHAR C 13, 31 , 104 ) 
CALL  HCHAR (23, 17, 104) 
FOR  1=3  TO  30  STEP  3 
CALL  SOUND ( 100,  1900,  I > 

I 

100 

HCHAR ( X , XX , MUSH) 

100 
2=104  THEN  270 
LI=1  THEN  7500 
>00 


1200 


9100 
LI,  1  > 


NEXT 

GOTO 

CALL 

GOTO 

IF 

IF 

GOSUB 

GOTO  290 

CALL  HCHAR (YA, XA, 136) 

GDBUB  7000 

FDR  DE=110  TO  880  STEP  32 

PRINT 

CALL  SOUND < 1 , DE, 2) 

CALL  SOUND ("1 , DE, 2) 

NEXT  DE 

L0=L0+1 

IF  L0=12  THEN 

W0  =  5 

L1=L1+1 

IF  L0>EX  THEN 

CALL  COLOR (14, 

CALL  CLEAR 

GOSUB  1300 

GOSUB  6600 

ON  LO  GOTO  5080,400,500,550,600 

,700, 800,4  50, 550, 1000, 1 100, 1200 

GOTO  5080 

SECOND  SCREEN 

HCHAR (13,5, 120, 24 > 

5030 

SCREEN 

VCHAR (7, 15, 120, 16) 

HCHAR (9, 6, 120, 22) 

5030 

FOURTH  SCREEN 

HCHAR (6,5, 120, 24) 

HCHAR (20, 5, 120, 24) 

5080 

FIFTH  SCREEN 

HCHAR(7,6, 120, 22) 

VCHAR(S, 15, 120, 16) 

5080 


REM 

CALL 

GOTO 

REM 

CALL 

CALL 

GOTO 

REM 

CALL 

CALL 

GOTO 

REM 

CALL 

CALL 

GOTO 

REM 

CALL 

CALL 

GOTO 

REM 

FOR 

CALL 

CALL 

NEXT 

GOTO 

REM 

CALL 

CALL 

CALL 

GOTO 

REM 


FRAME  6 

HCHAR (12, 

HCHAR (12, 

5030 

FRAME  7 
1=8  TO  IS 

HCHAR ( I , 

HCHAR ( I , 

I 

5080 

FRAME  a 

HCHAR (8, 

HCHAR ( 14 

HCHAR  <  18 

5080 

FRAME  9 
0  GOSUB  1400 
5  FOR  T=5  TO  21 
0  CALL  HCHAR (T, 4, 32, 16) 


3, 120, 13) 
19, 120, 12) 


7, 120, 7) 
18, 120,3) 


, 120, 13) 
12, 120, 19) 
3, 120, 13) 
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LET  US  ANALYZE  YOUR  RETURN 
BEFORE  THE  LR.S.  DOES  IT  FOR  YOU. . . 


[wt/ioducinq . . . 


THE, 


TAX  CONSULTANT 


TM 


(FOR  ATARI  400/800  AND  THE  COMMODORE  64  COMPUTERS) 


NOW  YOU  CAN  HAVE  COMPLETE 
TAX  PREPARATION  AT  HOME! 


onCy 


^95 


00 


ios. 


deducW 


and  your  return  will  be  closely  checked  and  analyzed  before  the  I.R.S. 
ever  sees  it!  THE  TAX  CONSULTANT™  is  a  sophisticated  yet  very  friend- 
ly program  for  the  novice  user.  THE  TAX  CONSULTANT""  will  help  you  to 
calculate,  prepare  and  print  your  return.  But  then,  at  your  request,  THE 
TAX  CONSULTANT™  will  check  your  return  very  closely  and  issue  an 
itemized  print-out  indicating  those  items  that  in  its  judgment  may  be 
questioned.  No  other  tax  preparation  package  offers  this  feature! 


•  Features  — 

•  On-screen  Prompts 

•  Continuous  tax/refund  readout 

•  Fast,  100%  machine  language 

•  All  required  I.R.S.  forms  included 

•  Easy  to  follow  tutorial  in  manual 

•  Prints  all  necessary  forms 

•  Multi-color  screens 

•  Inexpensive  updates 


^&sf 


A  TAX  PLANNING  MODULE  THAT, 
WHEN  USED  WITH  THE  ANALYSIS 
MODULE,  WILL  PROVIDE  YOU 
WITH  A  YEAR-ROUND  TOOL  TO 
PLOT  YOUR  TAX  STRATEGIES 
Dealer  inquiries  welcome/ 

Information 

(707)  422-9591 


Mail  Orders  lo:  Morbiuf  Software  Co.,  Inc. 
Dept.  CP.    P.O.  Box  1702 
VaodviUe,  CA  95696 


Address 


Cily.Siate 


7IP 
D  CHECK/MONEY  ORDER  

n  VISA  Interbank  «MC) 

D  MASTERCARD  Expires    

Card  No 


Signature 

Price  S95.0O  plus  14.00  shipping  and  hanciling.  Calii.  residents 

add  6%  sales  tax.  Please  allow  two  weeks  lor  checks  lo  clear. 

System  Requirements:  Atari  400/800  with  4BK  &  one  disk  drive; 

Commodore  64  with  one  disk  drive.  Printer  recommentied. 

ATAJU  400/aOO  is  a  ludenmik  ul  Alan,  Inc. 

Commodora  64  u  a  trailsmark  oi  Coin[QC<lore  ElecliDQica,  Ltd. 

THE  TAX  COMSUIJANT  u  i  tridomaiJi  ci  GMG  Associalei 


MASTERCARD /VISA   CALL  TOLLFREE! 

CAUF  1-800-82 1-6771  NATION  1-800-821-6770 


Telephone  operatois  standing  by  Mon.-Fii.  8  am  to  5  pm,  Saturdays  9  aw  to  1  pm,  PST 


1025  NEXT  T  5109  HI=0 

1030  GOTO  5080  5110  DI=4 

liei0  GDSUB  1400  5115  FOR  1=2  TO  31  STEP  29 

1110  FOR  T=5  TO  21  5120  CALL  VCHAR ( 3 , I , 1 20 , 2 1 ) 

1115  CALL  HCHAR (T, 4 , 32, 20)  5125  NEXT  I 

1120  NEXT  T  5130  FOR  1=3  TO  23  STEP  20 

1125  GOTO  400  5135  CALL  HCHAR ( I , 3 , 1 20 , 2S ) 

1199  REM   YOU  WIN!!  5140  NEXT  I 

1200  CALL  CLEAR  5145  CALL  HCHAR < 24 , 3 , 1 37 , 23 ) 
1205  CALL  SCREEN (3)  5150  IF  HI>0  THEN  5174 

120i  FDR  1=4  TO  S  5155  CALL  HCH AR < 3 ,  1 7 ,  1  04 ) 

1207  CALL  CDLDR(I,2,1)  5160  CALL  HCH AR < 1 2 , 2 , 1 04 ) 

120S  NEXT  I  5165  CALL  HCHAR ( 1 2 , 3 1 , 1 04 > 

1210  PRINT  TAB (9)  ;  "NERM' S  HOME!"  5167  CALL  HCHAR ( 23 ,  1 7 ,  1  04 ) 

1220  PRINT  5171  SOTO  150 

1230  PRINT  5174  RANDOMIZE 

1240  PRINT  TAB < 10)  ;  "THANK  YOU!"  5175  XX  =  RND*28  +  3 

1250  FOR  T=l  TO  9  5178  X=RND*19+4 

1260  PRINT  51S0  CALL  GCHAR C X , X X , H 1 ) 

1270  NEXT  T  5185  IF  Hl<>32  THEN  5174 

1275  FOR  T=i  TO  3  5190  CALL  HCHAR < X , X X , MUSH ) 

1280  FDR  1=110  TO  880  STEP  30           5200  GOTO  150 

1283  CALL  SOUND < 1,1,2)  5500  CALL  CLEAR 

1284  CALL  SOUND  (-1  ,  I  ,  2)  5505  PRINT  T  AB  (  1 1-1 )  ;  "  GET  READY!" 

1285  NEXT  I  5510  FOR  T=1  TO  12 

1286  FOR  1=880  TO  110  STEP  -30  5515  PRINT 

1287  CALL  SOUND(l,I,2)  5520  NEXT  T 

1288  CALL  SOUND <-l , I , 2)  5525  FOR  1=1  TO  14 

12S9  NEXT  I  5530  CALL  SOUND ( 1 00 , NN ( I ) , 2 } 

1290  NEXT  T  5535  NEXT  I 

1291  CALL  SCREEN(2)  5540  RETURN 

1293  GOTO  7700  6599  REM   PRINT  SCORE 

1300  CALL  CLEAR  6600  H*=STR«iSC) 

1305  PRINT  "SCORE  :  "  ;  TAB < 20 )  ;  " ROOM  6603  R0W=1 

:  "  6604  COL=l 0 

1310  PRINT  "MUSHROOMS  : " ; T AB < 20 ) ; " L   6605  GOSUB  20 

IVES  ;"  6607  H*=STR*<LD) 

1320  FDR  T=l  TO  21  6608  C0L=28 

1330  PRINT  6609  GOSUB  20 

1340  NEXT  T  6610  H*=STR*<HI) 

1350  RETURN  6611  R0W=2 

1400  FOR  T=5  TO  21  6620  C0L=14 

1410  CALL  HCHAR (T, 4, 120, 26)  6625  GOSUB  20 

1420  NEXT  T  6630  H«=STR*(LI) 

1430  RETURN  6635  C0L=29 

4999  REM   UP  THE  GAME  6640  GOSUB  20 

5000  GOSUB  10000  6650  RETURN 

5005  MUSH=112  6999  REM    NERM  LEAVES 

5010  LI=4  7000  SP=SP-5 

5015  SC=0  7005  GOSUB  6600 

5020  LO=l  7010  HI=5 

5035  HI=5  7015  L=LEN(XA«) 

5040  W0=5  7020  FOR  1=1  TO  L 

5045  EX=2  7025  CALL  SOUND < 2 , 1 1 0+ I *2 , 2 ) 

5050  Ll=3  7030  CALL  HCH AR < ASC < YA* >  , ASC < X  A* ) 

5055  GOSUB  5500  2> 

5060  CALL  CLEAR  7035  LL  =  LEN  (  X  A* ) - 1 

5065  CALL  SCREENt2)  7040  X A*  =  SEGt < X  A* , 2 , LL > 

5066  FOR  1=3  TO  8  7045  Y A*=SEG* ( Y A* , 2 , LL ) 

5067  CALL  COLOR t I , 16, 1 >  7050  NEXT  I 

5068  NEXT  I  7060  RETURN 
5070  GDSUB  1300  7499  REM   OOP  I  I 
5075  GOSUB  6600  7500  CALL  CLEAR 

5080  XA*=""  7505  PRINT  TAB <  1 3 >  ;  " OOPS " 

5081  YA*=""  7510  FOR  1=1  TO  12 

5085  XA=17  7515  PRINT 

5086  YA=18  7520  NEXT  I 
5091  DX=0  7525  LI=LI-1 

5093  DY=-1  7547  FOR  1=14  TO  24 

5103  IF  HK6  THEN  5107  7549  CALL  SOUND  C  1  0 ,  I  *40 ,  2  ) 

5105  HI=5  7551  NEXT  I 

5107  IF  HI>-1  THEN  5110  7553  FOR  1=1  TD  30 
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7555 
7560 

7600 
769<? 
7700 
7704 
7  7  05 
7706 
7710 
7720 
7721 
7722 
7723 
7725 
7728 
7729 
7730 
7740 
7743 
7745 
7750 
7755 
7760 
7770 
7775 
7780 
7785 

7790 
7795 
7796 
7797 
7798 
7800 
7805 
7806 
7810 

7815 
7816 
7817 
7S20 
7830 
7B40 
7845 
7850 
9099 
9  100 
9110 
9120 
9125 
9130 
9132 
9134 
9136 
9140 
9145 
9150 
1000 
1000 
1000 
1000 
1001 
1001 
1002 
100  2 
1002 
1002 
1002 
1002 
1003 


THEN 
^00 


7700 


ENDS 


1> 


NEXT  I 

IF  L  I<  1 

GOSUB  1 

RETURN 

REM   THE  GAME 

CALL  CLEAR 

FOR  1=3  TO  8 

CALL  COLOR ( I , 16 

NEXT  I 

IF  HS>SC  THEN  7750 

HS  =  SC 

FOR  1=1  TD  5 

PRINT 

NEXT  I 

PRINT  TAB(8> 

FOR  T=110  TO 

CALL  SOUND <2 

NEXT  T 

FOR  1=1  TO  5 

PRINT 

NEXT  I 

PRINT  TAB (7) ; 

PRINT 

PRINT  TAB (7> ; 

FOR  1=1  TO  3 

PRINT 

NEXT  I 

PRINT  TAB(5); 


:  "NEW 
1760 
T,  2) 


HIGH 
STEP 


SCORE" 
50 


YOUR  SCORE:   " ; SC 


HIGH  SCORE:   " ; HS 


YOUR  NEW  RANK  IS 


PRI  NT 
PRINT 
FDR  1  = 
CALL  S 
NEXT  I 
PRINT 
PRINT 
PRINT 
PRINT 
IT>  " 
FOR  T  = 
PRINT 
NEXT  T 
CALL  K 
IF  ST  = 
IF  iK< 
IF  K  =  6 
STOP 
REM   E 
CALL  C 
PRINT 
FOR  1  = 
PRINT 
NEXT  I 
FDR  1  = 
CALL  S 
NEXT  I 
EX=EX+ 
LI=LI+ 
SOTD  2 

0  CALL 

1  FOR  T 
CALL 
NEXT 
CALL 
CALL 
PRINT 
FOR  T 
PRINT 
NEXT 
PRINT 
FOR  T 
PRINT 


TAB (9)  ; RANK*  <L0> 
15  TO  29 

DUND  C 100, NN  <  I  )  ,2) 


"<C  TO  CONTINUE   Q  TO  QU 
1  TO  4 


EY(0,K,ST) 

0  THEN  7820 

>67)  *  (K081  )  THEN  7B20 
7  THEN  5000 

XTRA  LIFE 

LEAR 

TAB (11); "BONUS  LIFE" 

1  TO  12 


1  TO  30  STEP  2 
DUND  (100,  1  175,,  I  ) 


1 

37 
CLE 


COL 
T 

COL 
SCR 
TA 
=  1 


AR 

TO  a 

OR  <T, 2j  1  > 

OR ( 14, 3,  1  ) 

EEN (15) 

B ( 10) ; "WELCOME  TO' 

TO  4 


10032 
10034 

10036 
10040 
10042 
10045 
10047 
10050 
10052 
100^5 
10057 
10058 
10060 
10065 
10070 
10075 
10999 
1  1000 
11015 
1  1020 
1  1025 
1  1030 

1  1032 

1  1033 
1  1035 
1  1040 
1  1045 
1  1050 

1  1060 
1  1065 
1  1070 
1  1075 
1  10S0 
1  1085 
1  1090 

1  1092 

1  1094 
1  1  100 
11110 
1  1  120 
1  1  130 


1  1  135 


1  1  140 


NEXT  T 
PRINT 

MOVE- 
PRINT 

CALL  HCHAR(21 
HCHAR (21 

1=1  TD  22 
HCHAR (21 
HCHAR (21 
SOUND ( 10 
HCHAR (21 

TO  20 


USE  E,S,D,   &  X  KEYS  TO 


3,  1 
8,  1 


TD  100 


CALL 

FOR 

CALL  HCHAR(21,6+I 

CALL  HCHAR(21,7+I 

CALL  SOUND( 10,622 

CALL  HCHAR(21,2+I 

FOR  T=l 

NEXT  T 

NEXT  I 

FOR  T=l 

NEXT  T 

RETURN 

REM    REDEFINE  CHA 

FOR  1=104  TO  136 

READ  A* 

CALL  CHAR(I,A*) 

NEXT  I 

DATA  FFFFFFFFFFFF 

F1818iai8, FF81BDA 

DATA  8142243C7E5A 

EFEFE7C38 

CALL  COLORC10 

CALL  COLORdl 

CALL  COLOR  (12 

CALL  COLOR  (  13 

CALL  CHAR(137 

FF"  ) 

FOR  1=1  TO  9 

READ  RANK* (I) 

NEXT  I 

FDR  1=10  TO  12 

RANK* (  I  ) ="HALL  OF 

NEXT  I 

DATA  ZERO, ROOKIE, 

BE 

DATA  MASTER, GRAND 

RD, BRAND  WIZARD 

DATA  SUPER  STAR 

FOR  1=1  TO  29 

READ  NN(I) 

NEXT  I 

DATA  262,349,4000 

0  00, 392, 440, 523, 4 

49, 40000 

DATA  349,40000,40 

262, 294, 294, 262, 4 

0000, 330, 330, 349 

RETURN 


36,  4) 
28) 

,  136) 
.128) 
,2) 
,32) 


RS 
STEP  a 


FFFF, 187EFFF 
5A5BD81FF 
3C1 a, 387CFEF 


,2,2) 

,14,1) 

,2,10) 

,7,1) 

,  "FFFFFFFFFFFFFF 

FAME" 
NOVICE, AVERA 
MASTER, WIZA 


0, 349, 392, 40 
40, 523, 440,3 

000, 262, 247, 
0000, 40000, 4 


TAB (3) j 
=  1  TO  9 


'NERM  OF  BEMER' 


Program  6:  worm  Of  Bemer—PC/PCjr  version 

Translation  by  Patrick  Parrishi,  Programming  Supervisor 

2  DEF  SEG=0:POKE  1047, 80: SCREEN  0,1 

4  WIDTH    40: KEY    OFF 

5  DEF    SEG=S<HB800 

7  DIM  RANK* (12) : GOSUB  11000 

10  GOTO  5000 

lOO  A*=RIGHT$(INKEY*, 1) ;FOR  D=l  TO  SP:NE 

XT  D 

110  IF  A*=CHR*(77)  THEN  DX=1 : DY=0: DI=1 : I 

F  0D=2  THEN  DX=-1 : DY=0: DI=2 

120  IF  A«=CHR*(75)  THEN  DX=-1 : DY=0: DI=2: 

IF  0D=1  THEN  DX=l:Dy=0:DI=l 

130  IF  A$=CHR*(72)  THEN  DY=-1 : DX=0: DI=4: 

IF  0D=3  THEN  DI=3: DY=1 t DX=0 

140  IF  A*=CHR*(a0>  THEN  DY=1 : DX=0: DI=3: I 

F  OD=4  THEN  DI=4: DY=-1 : DX=0 
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Notes  For  PC  And  PCjr 


Program  6  is  written  for  the  IBM  PC  or  PCjr 
with  64K  of  memory  and  will  RUN  on  any 
BASIC  (PCjr  with  disk  requires  Cartridge 
BASIC).  With  the  PC,  a  Color  Adaptor  is  nec- 
essary. If  you  have  the  PCjr,  enhance  the 
sounds  produced  in  the  game  by  adding  the 
following  line: 

1  SOUND  ON 

This  statement  causes  all  sounds  to  be  emitted 
from  the  TV  or  monitor  speaker  in  addition  to 
the  PCjr's  internal  speaker. 

The  PC/PCjr  version  of  "Worm  of 
Bemer"  is  played  with  the  keyboard.  Use  the 
arrow  keys  (found  on  the  numeric  keypad  on 
the  PC)  to  control  Nerm's  movements.  In  this 
program,  two  skill  levels  are  featured — easy 
and  difficult.  The  skill  level  you  choose  deter- 
mines the  speed  of  the  game.  If  you  find  that 
the  game  loses  its  challenge  for  you  even  on 
the  difficult  level,  set  variable  A2{2)  to  0  in 
line  10000.  This  will  further  increase  the  speed, 
and  thus,  the  challenge  of  the  game. 


145  FD=2tXA+YA«SO;OD=DI:PaKE  PO, 15:P0KE 

P0+1,L1 

150  XA=XA+DX: YA=YA+DY:L=LENCXA*) : XA*=XA$ 

+CHR*  <  XA) : YA«=YAS+CHR* ( YA) 

155  Z=PE£K(XA«2+YA«B0> : IF  Z 032  THEN  200 

161  SOUND  500, .5 

162  P0=XA«2+YA*80!F0KE  PD+1,12:P0KE  PO, 1 
: IF    L<WO    THEN    lOO 

190  P0=ASC<XA«)*2+80*ASC(YA*) :LL=LEN<XA* 
) -1 : XA*=RIGHTS  CXA$,LL) 

191  POKE    PO, 32; POKE    PO+1,0 

195    YAt=RIGHTt(YA$,LLJ :BOTO    lOO 

200    P0=XA*2+VA*80:P0KE    P0+1.12:PDKE    PO, 1 

:BOSUB    6605:  IF    ZOBU    THEN    260 

210    W0=W0+15+3*L0: IF    WD>240    THEN    Wa=240 

220    XX  =  INT(RND(i)*36+2)  :"x=INT  <RND  ( 1)  *1B+ 

3)! IF  PEEK(XX*2+S0*X)<>32  THEN  220  ELSE 

A5=XX*2+80*X 

225  SC=SC+100+LD*7:F0R  1=1900  TO  .1950  ST 
EP    10: SOUND    I,. 5; NEXT 

226  HI=HI-1:Q0SUB    6605: IF    HI>0    THEN    229 

227  POKE  198, 219: POKE  199,0: POKE  1878,21 
9: POKE  1879.0: POKE  960, 2 19: POKE  961,0:Pa 
KE    1038, 219: POKE    1039,0 

228  FDR  1=900  TO  990  STEP  10: SOUND  1,-5: 
NEXT: GOTO    lOO 

229  P0=2*XX+X*80:P0KE  PQ,BU:POKE  PO+1,5: 
6GT0    100 

260  IF  Z0219  AND  LI>1  THEN  GOSUB  7S10:G 
OTO    290 

265    IF    Z0219    THEN    7510 

270  60SUB  7002:L0CATE  24,lsPRlNT  STRING* 
(1,  11)STRING$<24,31) 

275    FOR    DE=1    TO    24: PRINT: BOUND    DE+99,.5 
277    NEXT    DE 

280  L0=L0+1:W0=5: IF    L0=12    THEN    1200 

281  L1=L1+1:IF    LI >15    THEN    Ll=9 
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285  IF  La>EX  THEN  GOSUB  9105 

287  CLS: GOSUB  4100 

290  GOSUB  6605 

300  ON  LO  GOTO  5020,400,500,550,600,700, 

800, 450,550, 1000, 1 lOO, 1200 

395  GOTO  5015 

399  REM  SECOND  SCREEN 

400  FDR  1=10+13*30  TO  70+13*80  STEP  2:P0 
KE  I,17B:PnKE  I +1,65: NEXT  I 

420  GOTO  5020 

449  REM  THIRD  SCREEN 

450  FOR  1=10+13*80  TO  70+13*80  STEP  2:P0 
KE  I, 178: POKE  1+1,65: NEXT  I 

460  FOR  1=40+5*80  TO  40+20*80  STEP  aO:PO 
KE  I +1,65: POKE  I, 178: NEXT  I : GOTO  5020 

499  REM  FOURTH  SCREEN 

500  FDR  1=10+6*80  TO  70+6*80  STEP  2; POKE 
I, 178: POKE  I +1,65: NEXT  I 

520  FOR  1=10+19*80  TO  70+19*80  STEP  2;P0 
KE  1+1,65: POKE  I , 1 78 : NEXT  I : GOTO  5020 

549  REM  FRAME  5 

550  FDR  1=14+6*80  TO  64+&*80  STEP  2: POKE 
I+1,65:PQKE  I,I78:NEXT  I 

560  FOR  1=36+7*80  TO  36+22*80  STEP  S0:P0 
KE  1+1, 65: POKE  I, 178: NEXT  I : GOTO  5020 

599  REM  FRAME  6 

600  FOR  1=2+11*80  TO  32+11*90  STEP  2:P0K 
E  1+1,65: POKE  I, 178: NEXT  I 

610  FOR  1=44+11*80  TO  76+11*80  STEP  2:P0 
KE  1+1,65: POKE  I, 178: NEXT  I : GOTO  5020 

699  REM  FRAME  7 

700  FOR  J=6  TO  19: FOR  I=12+J*a0  TO  24+J* 
SO  STEP  2: POKE  I, 178: POKE  1+1,65: NEXT  I 
710  FOR  I=40+J*80  TO  66+J*80  STEP  2: POKE 

I,17a:P0KE  I+l,65:NEXT:NEXT:GOT0  5020 

799  REM  FRAME  8 

800  FOR  1=2+9*80  TO  36+9*80  STEP  2: POKE 
1+1,65: POKE  I, 178; NEXT  I 

SIO  FOR  1=2+17*80  TO  36+17*80  STEP  2:P0K 

E  1+1,65: POKE  I, 178: NEXT  I 

815  FOR  1=23+13*30  TO  76+13*80  STEP  2:P0 

KE  I +1,65: POKE  I, 178: NEXT  I 

B20  GOTO  5020 

999  REM  FRAME  9 

iOOO  FOR  J=4  TO  21: FOR  I=4+J*80  TO  74+J* 

30  STEP  2: POKE  1+1,65: POKE  I , 178: NEXT: NE 

XT 

1005  FOR  J=4  TO  21: FOR  I=4+J«80  TO  44+J* 
80  STEP  2: POKE  I+1,0:PDKE  I , 32: NEXT: NEXT 


PC/PCjr  version  of  "Worm  of  Bemer. " 


BEGINNING  PROGRAMMERS 
If  you're  new  to  computing,  please  read  "How 
To  Type  COMPUTEI's  Programs"  and  "A 
Beginner's  Guide  To  Typing  In  Programs." 


lOlO  BOTO  5020 

i099  REM  FRAME  10 

llOO  FOR  J =4  TD  21: FDR  I=4+a*80  TO  74+ J* 

80  STEP  2: POKE  1+1, 65: POKE  I , 1 78: NEXT: NE 

XT 

1105  FOR  J=4  TO  21: FDR  I=4+J»80  TO  60+J * 

SO  STEP  2: POKE  1+1,0: POKE  I , 32: NEXT : NEXT 

1110  BOTO  400 

11V9  REM  YDU  WIN 

1200  FDR  1=1     TO  3:CLS:C0L0R  5: LOCATE  10, 

14:PRINT"NERM'B  HOME  !": COLOR  9: LOCATE  1 

5, 15:PRINT"THANK  YOU  !" 

1205  FDR  1=220  TO  660  STEP  20:  SOUND  I,.  5 

iNEXT  I 

1220  FOR  G=l  TO  250: NEXT: NEXT: BOTO  7700 

4100  LOCATE  25, 1:C0L0R  LlrPRINT  STRING$( 

39,219) ;: POKE  1993, 219: POKE  1999, LI: COLO 

R  7: RETURN 

4999  REM  UP  THE  GAME 

5000  EOSUB  IOOOO:BU=6 

5011  SF=35:LI=4:SC=0:LD=1:G0SUB  5500: HI= 

5:W0=5:EX=2:L1=9 

5015  CLS:GOSUB  6500 

5020  XA$="" : YA$="": XB*="": YB$="" : XA=19:  Y 
A=19:DX=0 

5021  IF  L0=3  THEN  YA=1B 
5025  DY=-1:IF  HKO  THEN  HI=0 
5030  DI=4: IF  HI>5  THEN  HI=5 

5050  FOR  1=160  TO  239  STEP  2: POKE  1+1,65 
:POKE  I, 178: NEXT  I : FDR  1=1340  TO  1919  ST 
EP  2: POKE  1+1,65: POKE  I, 178: NEXT  I 

5055  FDR  1=240  TO  1839  STEP  SO: POKE  I+l, 
65: POKE  I, 173: NEXT  I : FOR  1=318  TO  1917  S 
TEP  80: POKE  I +1,65: POKE  I,17S:NEXT  I 

5056  IF  HI>0  THEN  5060 

5057  POKE  198, 219: POKE  199,0: POKE  1878,2 
19: POKE  lS79,0:PaKE  960, 219: POKE  961, 0;P 
OKE  1038,219: POKE  1039,0 

5059  GOSUB  4100: GOTO  150 

5060  XX=RNDC1) *36+2: X=RND(1) *lS+3: IF  PEE 
K  C  X X  * 2+X «80 ) <  >32  THEN  5060 

5065  POKE  XX*2+X*30,BU:PQKE  XX*2+X«aO-^  1 , 

5 

5070  GOSUB  4100: GOTO  150 

5500  CLS: COLOR  10: LOCATE  12, 16: PRINT "GET 

READY  !  ■' 
5510  FOR  1=440  TO  880  STEP  10: SOUND  1,1: 
NEXT  I 
5550  RETURN 

6500  REM  REDEFINING  SCREEN 
6575  GOSUB  6605 
6580  RETURN 
6600  REM  PRINT  SCORE 

6605  COLOR  14: PRINT  STRINGS ( 1 ,  1 1 > "SCORE 
"SC 

6606  PRINT  STRING*(1, 11 )STRING$k30, 23) "R 
OOM   "LO; 

6610  PRINT  "MUSHROOMS  "HI;: PRINT  STRING* 

(17,32) "LIVES  "LI 

6620  COLOR  7: RETURN 

7000  REM  CLEAN  UP  THE  CENTIPEDE 

7002  SP=SP+5« (SF>M2) 


7004  GOSUB  6605: HI=5 

7005  L=LEN(XA*) 

7010  POKE  PO+1  ,  Lj,:PDKE  PO,15:FDR  1  =  1  TD 

L 

7020  BOUND  220+3*1,1 

7190  PO=2*ASC(XA*)+ao*flBC(YA*) :LL=LEN(XA 

*)-l:XAl!=RIGHT$(XA*,LL) 

7195  YA*=R1GHT$(YA$,LL) :FOKE  PO, 32: POKE 

PO+1, i 

7200  NEXT  I 

7210  RETURN 

7500  REM  OOPS 

7510  CLS:  COLOR  5:  SP=SP+5*  (SP>rt2) 

7515  LOCATE  12, 18: PR INT"aOPS  !" 

7521  LI=LI-1 

7545  FDR  1=250  TO  50  STEP  -5: SOUND  T,1:N 

EXT 

75SO  FOR  DE=1  TO  200:NEXT  DE:FOR  T=l  TO 

10: A*=INKEY*:NEXT  T 

7560  IF  LKl  THEN  7700 

7599  CLS: RETURN 

7699  REM  THE  GAMES  OVER 

7700  CLS 

7715  IF  SOHS  THEN  HS=SC:  GOSUB  9000:  CLS 

7719  LOCATE  6, IB: PRINT"NERM" 

7720  COLOR  14:LOCATE  lO, 12: PRINT" YOUR  SC 
ORE  "SC 

7730  LOCATE  14, 12: PRINT"HISH  SCORE  "HS 

7735  BOSUB  7800 

7740  COLOR  7:L0CATE  22, 1 ; PRINT"Fre55  the 

space  bar  to  play  agai  n  ,  El=qLii  t  " 
7745  FOR  T=220  TD  380  STEP  100; SOUND  T,l 
: NEXT: FDR  T=880  TD  220  STEP  -100: SOUND  T 
, .5: NEXT 

7730  AS=INK.EY$:  IF  A«="Q"  THEN  END 
7784  IF  A$="  "  THEN  5000  ELSE  7780 
7800  REN  RANK  THE  GAMER 

7810  COLOR  3:L0CATE  18, INT ( (22-LEN (RANK* 
(LO) ) ) /2) :PRINT  "YOUR  NEW  RANK  IS  "RANK* 
(LO) ". ": RETURN 
9000  REM  NEW  HIGH  SCORE 

9002  CLSjCDLOR  3:LDCATE  9, 16: PRINT"NEW  H 
IGH" 

9004  LOCATE  13, 17: PRINT"SCORE ! " 

9005  SOUND  261, 5: SOUND  440, 5: SOUND  392,1 

nr 
.-F 

9060  FDR  DE=1  TO  1000: NEXT  DE 

9070  RETURN 

9100  REM  EXTRA  LIFE 

9105  CLB: LOCATE  12, 15: COLOR  3: PRINT  "BON 

US  LIFE  ■ " 

9120  FOR  1=1500  TO  3000  STEP  50: SOUND  I, 

1:NEXT 

9130  FOR  T=l  TD  1000: NEXT 

9170  EX=EX  +  3:LI=H  +  1:  RETURN 

lOOOO  A2(l)=30: A2(2)=20 

10005    CLS:L0CATE    8,16,0:CDL0R    9;PRINT"We 

Icoine   to" 

10020  COLOR  5:L0CATE  12, 14: PRINT"NERM  OF 
BEMER" 

10021  GOSUB  12000 

10022  LCCATE  17, 3: COLOR  9:PRINT"Use  curs 
or  keys  to  play." 

I002S  COLOR  6:L0CATE  20, 1 1 ; PRINT"Choose 

ski  1 1  level : " 

10030  LOCATE  22,  8:  PR  I  NT  "Easy  (1)    Di-f  +  i 

cult  (2)" 

10040  A*=INKEY*:IF  A*=""  OR  {A*<>"1"  AND 

A*<  > " 2 " )  THEN  X=RND ( 1 )  : GOTO  1 O040 
10050  M2=A2CVAL (A*) >: RETURN 
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11000  G5=100:FDR  1=1  TO  9: READ  RANK* ( I ) : 
NEXT  I: FOR  1=10  TO  12: RANK* ( I > ="HALL  OF 
FAME": NEXT  I 

11090  DATA  ZERO, ROOKIE, NOVICE, AVERAGE 
11092  DATA  MASTER, GRAND  MASTER, WIZARD, GR 
AND  WIZARD, SUPER  STAR 
11100  RETURN 

12000  LOCATE  IS, iiCOLQR  i0:PRINT  STRING* 
<4, 15V ;: COLOR  12: PRINT  STRING* i 1 , 1 ) 
12010  FOR  T=5  TO  35:L0ChTE  1S,T-4:C0L0R 
lOlFRINT  "  ": LOCATE  18, T: PRINT  STRING* (4 
,15); 

12015  SOUND  500, .5 

12020  COLOR  12: PRINT  STRING* { 1 , 1) : FOR  G= 

1  TO  G5:NEXT  GsNEXT  T: LOCATE  18, 32: PRINT 

STRING* (8, 32) : 65=G5+50*  <B5>50) : RETURN  © 


Use  the  handy 

reader  service  cords 

in  the  back  ot  the 

magazine  for 

infornnotion  on 

products  advertised  in 

COMPUTE! 


*REDUCES  DISKETTE  COST  50%l 

DOUBLES  DISKETTE  STORAGE  SPACE  ■ 


Owners  o1  S'A"  'single  "read'write"  head 
disk  drives  can  immediately  double 
diskette  storage  space  by  using  XIBttLE 
XltTCBIor  n.  The  back  o1  a  single  sided 
diskette  is  burnished.  To  use  it  you 
need  a  "write  enable  notch."  and  some 
also  need  in  addition,  an  "index  hole." 
XUtBLE  XltTCH  I  and  11  are  precision 
engineered  tools  designed  exclusively 
for  this  purpose. 

milKLIi  XOTCH  I 
(Cuts  square  Write  Enable  Notch)  For  users  of 
Apple,  Franklin,  Atari.  Commodore  and  most 
other  soft  sectored  systems. 

only  $14.95  each 

add  $1.50  each  P&H  /  ($4.50  foreign  P&H) 

XIBULESMnXtt 

(Cuts  square  Write  Enable  Notch  and  'A  inch  round 

'mdex  hole")  for  owners  of  \BM.  TRS  80  I  &  III, 

Osborne,  Kaypro  and  others  needing  "index 

hole",  and  all  other  "hard  sectored"  systems. 

only  $21 .90  each 

add  $2.50  each  P&H  ■'  ($6.50  each  foreign  P&H) 

'Florida  Residents  Add  S%  Sales  Tax' 

IT'S  A  MONEY  SAVER!    • 


Sold  at  leading  computer  and  office  supply  stores  in  your  area. 
Dealer  inquiries  are  invited. 


ORDER 

SEND  CHECK  OR  MONEY  ORDER  TO: 


DIVISION  OF  CORTRAN  INTERNATIONAL 

4211  N.W.  75  TERRACE  •  DEPT.|5-  LAUDERHILL,FL33319 

FAX.  PENO  ALL  TRADEUARKS  ARE  ACKNOWLEOGED 


Put  a  Monkey  Wrench 
into  your  ATARI  800 

Cutvour  programming  time  from  hours  to  seconds,  and  have  Ifl  diiect 
mode  commands.  All  at  your  finger  tips  and  oil  made  eosy  by  ttie 
MONKEY  WRENCH  II. 

Ttie  IVIONKEY  WREtVCH  II  plugs  easily  into  ttie 
right  slot  ol  your  ATAHI  ond  works  with  the 
ATARI  BASIC  Cartridge- 
Order  your  MONKEY  WRENCH  II  today  and 
enjoy  the  conveniences  of  these  18  modes: 

•  Line  numbering 

•  RenumtDering  basic  line  numlaers 

•  Deletion  ot  line  numbers 

•  Variable  and  current  value  disploy 

•  Up  and  dov^n  scrolling  of  basic 
programs 

•  Location  of  every  string  occurrence 

•  String  excnonge 

•  Move  lines 

•  Copy  lines 

•  Special  line  formats  and  page  numbering 

•  Disk  directory  display 

•  Margins  change 

•  Memory  test 

•  Cursor  exchange 

•  Upper  case  lock 

•  Hex  conversion 

•  Decimal  conversion 

•  Machine  language  monitor 

The  MONKEY  WRENCH  II  also  contains  a 
mochine  longuoge  monitor  with  16  commands 
thot  con  be  used  to  interact  with  the  poverlul  features 
of  the  6502  microprocessor 


8K  in  30  Seconds 

lor  your  VIC  20  or  CBM  64 

II  vou  own  a  viC  20of  o  CBM  Wond  ria^e  been  conce'ned 

atxjjl  Thfl  high  cost  of  a  disk  lo  s^ore  vouf  programs  or 

wCHfv  voursetl  no  longer  N(w  fheres  Ihg  RABBH  Ihe  [?A3BEI 

cfjmes  in  a  cariTidge.  ond  at  o  mucfi.  much  lower  price 

rnoni^eavetogedisi  Ardspeed      rnis  is  of>e  last  RABBIT 

Witn  tne  RABB!T  you  con  load  dnd  store  on  vour  CBW 

doiosefte  an  8K  prograrm  in  olmosl  iOseconcte.  compofed 

Jo  the  cuirent  3  minutes  ol  o  VIC  20  or  CBM  64,  almosi  ai 

losi  OS  the  iMI  disk  d'n^ 

The  ry^8r  is  eosv  to  instQfl.  all:ws  one  to  Append 

Basic  ^fograms,  works  with  o'  without  Enponsion 

Memo'v  onQ  picvides  Two  dot^  tile  modes  The 

f?ABB]T  IS  not  onlv  idsJ  Put  lelioPle 

(The  Robl>I  tot  the  VlC  20conlapnson  e«xjnsjon  cor 

nector  so  you  con  simuJtonBOusly  use  youf  memo'v  bodrd  etc 


MAE 


NOW 
THE  BEST 
FOR  LESS! 


For  CBM  64,  PET,  APPLE,  and  ATARI 

Now  you  can  have  the  same  p'ot&ss  ion  oily  designed  Mocro 
Assemblef /Edilof  as  used  on  Space  Shuttle  projecfi 

•  Designed  10  imp/ovePTogrommeffrodJCiwitv 

•  Smilor  y^nfoi  and  commands  -  No  need  to  feleo'h  pecuiiGf 
syniotes  ond  cornmcAds  when  vou  go  f^om  P£T  to  APPlt  to 

ATARI 

•  Coresideni  AssemWer /Editor  -  No  r)eed  lo  lood  the  Editor,  then 
theAssem&ef.  then  the  Editor,  etc 

•  Also  Includes  Word  Processor.  Relocoting  Uxxfer.  ond  mucr 
more 

•  f^jwelui  Edito'.  MacfOiCohdilionoiondtnteroctii^ 
Assemutv  and  Auto  -  je'O  page  odd-'essmg 

Still  not  conuiiced,  ^end  tor  our  liee  spec  shees' 


3239  Linda  Or. 
Winston-Salem,  N.C.  27106 
{919)924-2889  (919)748-8446 
Send  for  free  catalog! 


MostflfOofd  1 
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B.C/s  Quest  For  Tires 


James  V.  Trunzo 

My  three-year-old  daughter,  in 
her  innocence,  looked  nt  the 
screen  and  asked,  "What  cartoon 
are  you  watching,  Daddy?"  My 
six-year-old  daughter,  with  her 
newfound  first  grade  sophistica- 
tion, said,  "Great  graphics,  huh 
Dad!"  My  wife  said,  "Maybe  I 
can  beat  this  one." 

The  subject  of  all  this  admi- 
ration and  anticipation  is  a  new 
arcade-style  game  released  by 
Sierra  On-Line  entitled  Qiiesl  for 
Tires.  Each  of  the  statements  is 
accurate. 

Eleven  Screens 

B.C.'s  Quest  for  Tires  is  an  eleven- 
screen  visual  delight  based  upon 
the  cartoon  script  B.C.  The  cast  of 
Thor,  Fat  Broad,  Dooky  Bird,  the 
dinosaur,  and  Sweet  Chick  com- 
bine to  make  Quest  for  Tires  a 
standard  for  future  graphic  arcade 
games.  The  program  is  available 
for  Apple,  Atari,  Commodore 
64,  and  Coleco  computers. 

The  theme  of  Quest  for  Tires 
is  as  old  as,  well,  prehistoric 
times.  Thor,  tooling  around  on 
his  ancient,  stone-made  unicycle, 
must  overccime  a  host  of  obsta- 
cles to  rescue  Sweet  Chick  from 
the  dinosaur.  Some  of  the  obsta- 
cles are  logs  and  low-hanging 
branches  that  threaten  to  unseat 
Thor  unless  he  leaps  or  ducks  in 
time  to  avoid  disaster,  lava  pits 
that  must  be  crossed  with  the  aid 
of  Dooky  Bird,  and  an  erupting 
volcano  that  spews  boulders. 

Pushing  the  joystick  forwarcl 
makes  Thor  jump,  while  pulling 
the  stick  towards  you  makes 
him  duck.  Moving  the  stick  to 


the  right  moves  Thor  forward  at 
increasing  speed,  while  moving 
it  to  the  left  decreases  Thor's 
forward  speed,  though  it  does 
not  stop  him. 

A  Different  Speed  Level 

Those  are  the  basics  and  they 
arc  accomplished  with  the  fire 
button  released.  Depressing  the 
fire  button  adds  two  more  factors 
to  the  game  play.  With  the  fire 
button  depressed,  the  results  of 
right  and  left  joystick  movement 
are  enhanced.  Thor's  speed  will 
increase  at  a  much  greater  rate 
and  he  will  slow  up  much  quicker 
too. 

However,  while  the  basic 
play  procedures  are  very  simple, 
after  several  plays  one  begins  to 
realize  that  things  aren't  as  sim- 
ple as  thev  seem.  Bv  moving  the 
joystick  towards  the  upper  right 
diagonal,  for  example,  you  can 
make  Thor  jump  longer  distances 
rather  than  straight  up  and 
down.  Mastering  this  tactic 
quickly  becomes  a  necessity  if 
you  wish  to  conquer  all  the 
screens,  especially  at  the  more 
advanced  levels  of  play. 

For  Beginners  And 
Experts 

How  difficult  is  Quest  for  Tires! 
My  wife's  initial  reaction  was 
correct  with  respect  to  the  game's 
easiest  level.  The  game  can  be 
enjoyed  by  the  casual  gamer 
who  really  isn't  interested  in 
totally  mastering  games.  At  level 
one,  it  is  also  a  game  that 
younger  children  can  play  with- 
out becoming  frustrated  by  its 
difficulty  and  complexity. 

This  isn't  to  say,  however. 


that  the  game  is  unchallenging 
to  true  arcade  addicts  who  have 
mastered  the  intricacies  of  those 
games  requiring  four  hands.  At 
its  more  advanced  levels.  Quest 
for  Tires  requires  a  refined  sense 
of  timing  and  quick  reactions  if 
one  hopes  to  rescue  Sweet  Chick 
before  losing  all  five  wheels  with 
which  the  player  begins  the  game 
(each  wheel  ec]uivalent  to  one 
"life,"  of  course). 

The  game  has  well-planned 
variety  in  its  levels  of  difficulty. 
It's  versatile.  But  the  highlight 
isn't  the  play  of  the  game  itself. 
It's  the  great  graphics  that  make 
the  program  something  special. 

Excellent  Graphics 

Simply  put.  Quest  for  Tires  has 
graphics  and  animation  which 
approach  cartoon  standards. 
The  scrolling  of  the  different 
screens  is  done  so  smoothly  that 
the  illusion  of  movement  is  com- 
plete, and  the  colors  and  high- 
lighting of  each  scene  are  sharp 
and  vivid. 

The  game's  creators  used 
small  details  to  good  effect,  such 
as  the  way  Thor's  hair  waves  in 
the  wind  as  he  pedals  his  wheel 
and  builds  up  speed;  the  look  on 
his  face  when  he  fails  to  jump  a 
pit;  and  the  way  Sweet  Chick, 
blows  Thor  a  kiss  that  turns  into 
a  heart  and  floats  to  Thor  when 
he  successfully  completes  a  level. 

Quest  for  Tires  has  the  usual 
features  found  in  all  first-rate 
arcade  programs.  It  offers  four 
levels  of  play,  one  or  two  player 
option,  and  a  pause  feature.  It 
also  provides  a  vanity  board 
which  allows  the  player  to  record 
his  initials  for  posterity  upon 
achieving  one  of  the  ten  top 
scores  to  date.  Scoring,  inciden- 
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tally,  is  based  upon  avoiding 
obstacles;  the  more  difficult  the 
obstacle  the  more  points  earned 
by  overcoming  it.  More  variation 
in  the  scoring  is  achieved  by 
awarding  greater  point  values  to 
obstacles  when  they  are  cleared 
at  higher  speeds. 


B.C.'s  Quest  for  Tires 

Sicmi  On-Liiie,  Inc. 

Slerm  On-Liiw  Building 

Conrsei^old,  CA  93614 

(209)  683-6838 

Apple,  Atari,  or  Commodore  64  disk, 

$34.95 

Atari,  Commodore  64,  or  Cokco 

cartridge,  $39.95  ( 


Radiotap  For  VIC  And  64 


Dan  Carmichael,  Assistant  Editor 

The  Radiotap  by  Kantronics  is 
an  impressive  package  that  al- 
lows you  to  interface  your  Com- 
modore 64  or  VIC  to  a  shortwave 
or  ham  radio  receiver.  It  will 
automatically  interpret  com- 
munications such  as  Morse  code 
and  radioteletype  (RTTY)  and 
display  them  on  your  monitor. 
RTTY  is  used  by  various  services, 
from  foreign  embassies  to  news 
wire  services.  The  Radiotap  can 
interpret  both  standard  RTTY 
and  the  newer  ASCII  RTTY. 

Several  Modes  Are 
Available 

In  the  Morse  code  mode,  the 
Radiotap  reads  the  incoming 
signals,  and  automatically  ad- 
justs the  receiving  speed  of  the 
computer,  it  has  the  ability  to 
adjust  to  speeds  ranging  from  0 
to  99  words  per  minute.  All  you 
have  to  do  is  turn  on  the 
Radiotap,  tune  in  your  radio,  sit 
back,  and  "read  the  mail." 

In  the  RTTY  and  ASCII 
modes,  you  also  have  the  ability 
to  decipher  coded  or  scrambled 
messages.  These  options  include 
bit  switching,  inverting  bit  pat- 
terns, and  the  ability  to  vary  the 
baud  rate  (receiving  speed)  to 
nonstandard  settings.  In  these 
modes,  however,  receiving 
speeds  must  be  set  manually. 

The  Radiotap  also  has  a 
scope  feature.  It  is  very  useful 
when  analyzing  RTTY  signals 
coming  in  at  nonstandard  baud 
rates  or  which  are  encoded.  You 
can  display  the  incoming  signals 
on  your  screen  in  graphics  form, 
which  allows  you  to  measure 
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the  timing  of  the  incoming  sig- 
nals (bits)  and  helps  you  deter- 
mine which  ciphering  tech- 
niques, if  any,  are  being  used. 

Another  nice  feature  is  the 
printer  option.  By  pressing  a 
single  key,  you  can  produce  a 
printout  in  addition  to  the  moni- 
tor display.  This  feature,  how- 
ever, has  hardware  limitations. 
It  is  designed  for  the  Commodore 
1525  printer,  and  may  not  work 
with  other  printer/interface  com- 
binations. It  did  not  work  with 
the  Epson  printer  interfaced  to  a 
64  with  a  Micro-Electronix  serial 
interface.  However,  it  is  reported 
to  work  with  the  Cardco  inter- 
face. For  more  information,  con- 
tact Kantronics  at  the  address 
below. 

The  Radiotap  also  has  a  24- 
hour  clock,  set  by  the  user,  that 
is  always  displayed  at  the  top  of 
the  screen. 

Small  Inconveniences 

There  were  a  few  small  incon- 
veniences encountered  while 
setting  up  the  Radiotap.  First, 
you  must  construct  the  patch 
cord  to  connect  the  Radiotap 
interface  to  the  shortwave  re- 
ceiver. This  requires  a  little  light 
soldering  to  attach  two  plugs  to 
the  cord.  Second,  the  dual  vol- 
tage power  supply  included  with 
the  Radiotap  is  switch-selectable 
to  either  six  or  nine  volts.  How- 
ever, no  mention  was  made  of 
this  in  the  instruction  manual. 
After  experimenting  for  some 
time  with  both  voltages,  we 
selected  nine  volts,  the  correct 
setting. 

The  Radiotap  comes  with 
the  radio-to-computer  interface. 


software  in  cartridge  form,  and 
all  the  necessary  wiring  and 
plugs  to  connect  it  up  (except 
the  cord  to  the  radio). 

Also  included  is  a  com- 
plimentary copy  of  the  book 
Confidential  Frequency  List  pub- 
lished by  Gilfer  Associates  in 
Parkridge,  New  Jersey.  But  be- 
cause this  book  deals  largely 
with  items  that  are  not  related  to 
either  Morse  code  or  RTTY,  a 
better  choice  might  have  been 
RTTY  Frequencies,  also  published 
by  Gilfer  Associates. 

All  in  all,  the  Radiotap  is  a 
fine  product,  and  you  can  spend 
many  enjoyable  hours  reading 
foreign  embassy  and  wire  service 
messages.  The  Radiotap  is  for 
receiving  only;  there  are  no  trans- 
mit options. 

Radiotap 

Kantronics 

2202  East  23rd  St. 

Laiorencc,  KS  66044 

(913)  842-7745 

$199.95  © 


HEALTHY 

COMPUTING!! 


TOTAL  FITNESS 
PROGRAMS 

Your  computer  can  help 

you  and  your  loved  ones 

live  longer  and  enjoy  life 

more. 

Call  or  send  for  a  FREE 

catalog  of  health-related 

programs: 

*  Diet/Nulrition 

*  Exercise/Aerobics 
*  Health  Education 
*  Self-Improvement 
*  Psychology 
*  Games 

Programs  for  all  ages! 

CTRL  Health  Software 

1 18653  Ventura  Blvd.,  #348 

Tarzana,  CA  91356 

(818)  788-0888 


GET  THE  MOST  OUT  OF  YOUR 

COMMODORE- 

orVIC"2K)computer 


ALSO  AVAILABLE 

3  outstanding 
Music  Albums  to 
go  with  Synthy-64 
Classical 

Christmas  and 
Rag/Sing  Along 

See  below 
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CHART 
PLOT-64 

PLOTER  SUPPORT: 

AMDEK 

Hewlstt  Packard 

Hmitton  Inst. 

STROBE 

Swast-P 

Roland  DG 


COMING  SOON 

THE  ANATOMY 

OF  THE  1541 

DISK  DRIVE 


Professional 

Development 

Software 

For  Quality 

Applications 


ULTRABA$IC-M...Add   50 

commands:  graphics, 
music,  TURTLE  and  game 
1eatures.Tutorial,demo  plus. 
TAPE  $39.95  DISK  $42.9S 

ASSEMBLER-MONITOR-64 

High  speed  language 
developmenl.  Eleven  func- 
tion monitor.  Screen  editing 
of  source  file.DISK  $32.95 

MERCURE-64... Simple, 
powerful  file  management 
with  fast  design,  entry 
search  repon  capabilities. 
Tutorial.       DISK  S32.95 


SYNTHY-M...  Sets  the  standard  (or  all  of  the  rest. 
Best  64-synthesizer  anywhere.  Samples  and  manual. 
CASSEHE  $29.95  DISK  $32.95,  A!so  available:  3  great 
companion  music  albums;  Clntinl,  Chrlttmn,  and 
Ragtima  Sing-Along.  DISK  St2.95  Each. 


GRAPHKS  |}ESK3NER-e4... 

Menu-driven  drawings,  floor 
plans  and  illustrations  etc.. 
Slide  program  capability. 
DISK  $32.95 

CHECKBOOK  MANAGER-M 

Simple  check  account  main- 
tainance.  Optional  screen  or 
printer  report  and  backup. 
DISK  $22.95 


TINY    FORTH-M/20... Ex- 
Citing  language-low  price. 
Powerful,  extensible,  200  + 
word  vocabulary. 
TAPE  $24.95  DISK  $27.95 

ANATOMY  OF  A  COMMO- 

D0RE-S4  Complete  guide. 
Full  comment  ROMS  list,  de- 
tailed internals,  descriptions. 
300  PAQE  BOOK     S19.9S 


CHAHTPAK-64...Profes 

sional  quattiy  pie,  line  and 
bar  charts.  Menu  driven,  in- 
teractive, hardcopy. 
DISK  $42.95 

CHARTPlJ0T-64...Same  fine 

features  as  CHARTPAK-64 

with  high  quality  output  to 

plotters. 

DISK  $84.95 


ZOOM    PASGAL-64...Pro- 

duces  6502  mactiine  code 
for  speed,  floating  point,  In- 
tegers, strings  File  handling. 
D»K  $39.^ 

PO0L-64/20...Play  Fullrack 

or  nine  ball  using  hires 

graphics.  Vic-20  required  8K 

expander. 

TAPE  $14.95  DISK  $17.95 


SUPER  DISK  irnLnY-64... 

Speed  copy  4  ways:  Total, 
Bam,  Append  or  Rle.  Dump 
or  modify  sectors.  More. 
DISK  $22.95 

SCREEN  GRAPHIC^64Adds 

24  hires,  multicolor,  sprite 
commands  to  64-BASIC. 
Demo,  tutorial  and  manual. 
TAPE  $24.95  DISK  $27.95 


MASTER<4...Fufl  ISAM  file  management;  powerful  screen  management;  exceflent  pnnter 
generator-  programmi r's  aid;  BASIC  4.0  commands;  mactiine  language  monitor;  Soft- 
ware developers:  NO  RUNTIME  ROYALTIES;  Witri  150  page  manual  in  ttiree-ring  binder 

and  developmenl  software.  ■_,  — —  ..  -_.  ».»iiimpA  iKitn-rcn 

SOFTWARE  ON  DISK  W.95     ^  DEALER  INQUIRIES  INVITED 


FREE  CATALOG  Ask  for  a  listlna  of  other 
Abacus  Software  for  Cominoclore-64  or  Vic-20 


AVAILABLE  AT  COMPUTER  STORES,  OR  WRITE: 


OtSTfllBUTORS 
Grsal  Britain: 

ADAMSOFT 
18  Noraicti  Ave 
Rochdale.  Lanes 

01-7B8-8963 

Wnl  GRrmany: 

DATA  BECKER 
Merowingerstr  30 
41X10  DussBldorl 
0211/312085 


Bdolum' 

Inter  Service 
AVGuillaume  30 
Brussd  fT60.  Belgium 
2«0-!447 

SwtdBti: 

TIAL  TRADING 
P0  516 
34300  Almhull 
475-12304 


Fniica: 

Micro  Applicaticn 

147  Avenue  Paul-OojiTier 

Ru«iN  Malmaison.  France 

1.732-9254 

Aittlralia: 

CW  ELECTRONICS 
416  Logan  Road 
Brisbane,  Queens 
07-397  0808 


Canada  Eat): 

KING  MICROWARE  LTD. 
5950  Cote  des  Neiges 
Montreal,  Quebec  H3S  1Z6 
514/737-9335 

Naw  Zealand: 

VISCOUNT  ELECTRONICS 
306-308  Church  Street 
Palmerslon  North 
63-86-696 


Abacus  ^  Software 


P.O.  BOX  7211  GRAND  RAPIDS,  M»CH.  49510  g 

For  postage  &  handling,  add  $1 .50  (U.S.  and  Canada),  add  $3.00  J^_^ 

for  foreign.  Make  payment  in  U.S.  dollars  by  check,  money  order  [SBi 

or  charge  card.  (Michigan  Residents  add  4%  sales  tax).  t^^E* 

FOR  QUICK  SERVICE  PHONE  616-241-5510 


Catie's  Grandmother 
Goes  To  Camp 


Last  summer  my  mom  went  to  computer  camp. 
The  camp.  The  Computer  Tutor,  was  located  in 
Avalon,  a  small  seashore  resort  town  in  southern 
New  Jersey.  My  daughter  Catie  was  also  enrolled 
in  a  computer  camp — Computer  FUNdamentals, 
at  Hollins  College  here  in  Roanoke,  Virginia.  (See 
my  column  "The  World  Inside  Computer  Camps," 
in  last  month's  COMPUTE!  for  more  on  computer 
camps  for  children.) 

My  mom  is  58.  My  daughter  Catie  is  7.  Catie 
and  her  grandmother  are  more  than  half  a  century 
apart  in  age.  Yet,  by  coincidence,  they  were  en- 
rolled in  computer  camp  at  the  same  time,  learning 
the  same  thing.  I  thought  that  was  neat.  And 
significant. 

The  Candy  Store 

Millions  of  adults  find  themselves  on  the  outside 
of  the  computer  revolution  and  they  don't  know 
how  to  get  in.  They  are  like  a  little  kid  with  his  face 
squashed  against  the  display  window  of  a  fantastic 
candy  store.  They  would  love  to  join  the  other 
kids  inside  the  store,  but  they  can't  find  the  door. 

Computer  camps  can  be  one  door  into  com- 
puter literacy  and  computer  intimacy  for  fearful 
but  interested  adults.  Full-fledged  camps  for 
adults  are  springing  up  all  over  the  U.S.  Adults 
enroll  in  the  camps  for  a  period  of  one  or  two 
weeks.  Many  of  the  camps  combine  indoor  com- 
puter instruction  with  outdoor  exercise. 

Adult  campers  usually  begin  computing 
slowly,  but  they  quickly  pick  up  the  pace.  By  the 
end  of  camp  they  spend  up  to  ten  hours  a  day  in 
marathon  keyboard  sessions.  And  they  get 
hooked.  According  to  the  daughter  of  one  68-year- 
old  camper,  "We  had  to  drag  mom  away  from  the 
machine  just  to  make  sure  she  got  nourishment." 

Computer  Day  Camp 

Not  all  computer  camps  are  so  intense.  My 
mother's  computer  camp.  The  Computer  Tutor, 
was  only  a  day  camp.  My  mother  attended  the 
camp  for  three  hours  a  day  for  five  days.  Each 
night  when  she  finished  computing,  she  returned 
home  to  my  father. 
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There  were  four  computers,  with  two  people 
on  each  computer.  The  instructor  was  a  teacher  at 
Avalon's  lone  elementary  school.  There  was  one 
9-year-old  girl  enrolled  in  the  camp  and  a  14-year- 
old-boy  with  his  father  in  tow.  The  rest  of  the 
campers  were  women. 

The  camp's  goal  was  to  teach  the  basics  of 
computers,  including  the  terminology,  a  little  bit 
of  BASIC  programming,  and  use  of  the  computer 
keyboard.  According  to  my  mother:  "Our  instruc- 
tor tried  to  teach  us  a  lot  in  a  short  time.  I  learned 
how  to  do  some  programming  and  some  graphics. 
We  learned  about  the  disk  and  about  copying  and 
saving." 

The  Joy  Of  Flying  Solo 

My  mother's  most  exciting  day  came  when  she 
got  to  use  the  computer  on  her  own.  "One  day," 
she  said,  "I  worked  by  myself.  That  was  great!  I 
felt  that  if  I  had  done  that  every  day  I  would  have 
gotten  more  out  of  the  class." 

According  to  my  mother,  one  of  the  draw- 
backs of  the  course  was  that  the  instructor  had  so 
much  to  teach  and  so  little  time.  "You're  trying  to 
jam  so  much  into  a  few  hours  that  it  gets  very 
confusing.  Having  a  computer  to  practice  things 
on  would  have  made  things  easier." 

It  was  interesting  for  my  mother  to  watch  her 
classmates'  reaction  to  computers  and  compare 
their  reactions  with  her  own.  "My  college  secretar- 
ial courses  on  touch-typing  helped  me  a  lot,"  she 
said.  "Being  a  typist  eliminated  some  of  my  fear 
of  computers  right  away.  But  I  was  still  cautious. 

"There  were  others  who  were  more  willing 
to  jump  right  in,"  she  admitted.  "Some  of  the 
people  got  right  to  work  on  the  computer  and 
tried  to  invent  things  right  away.  Others  were 
quite  leery  and  wouldn't  do  things  until  they  were 
taught.  This  group  included  me." 

Life  After  Computer  Camp 

"Computer  camp  was  great,"  my  mother  said.  "It 
whetted  my  appetite  for  computers.  After  it  was 
over,  I  wanted  to  continue  learning  more. 

"The  only  problem  was  I  couldn't  find  any 


Looks  like  aPerrari. 
Drives  like  aRoUs. 
Parks  like  a  Beetie. 


Ask  your  computer  dealer 

to  take  the  cover  off  a  world-class  disk  drive. 

Theallnew,1984lndusGT.™ 

The  most  advanced,  most  handsome  disk 
drive  in  the  world. 

A  flick  of  its  power  switch  can  turn  an  Atari 
into  a  Ferrari. 

Or  an  Apple  into  a  Red  Hot  Apple. 

Looks  like  a  Ferrari. 

The  Indus  GT  is  only  2.65"  high.  But  under  its 
front-loading  front  end  is  slimline  engineering 
with  a  distinctive  European-Gran  flair. 

Touch  its  LED-litCommandPost^"  function 
control  AccuTouch"^"  buttons.  Marvel  at  how 
responsive  it  makes  every  Atari  or  Apple  home 
computer 

Drives  like  a  Rolls. 

Nestled  into  its  soundproofed  chassis  is  the 
quietest  and  most  powerful  disk  drive  power  sys- 
tem money  can  buy  At  top  speed,  ifs  virtually 
unhearable.  Whisper  quiet. 

Flat  out,  the  GT  will  drive  your  Atari  track-to- 
track  0-39  in  less  than  one  second,  increasing 
data  transfer  400%.  (Faster  than  any  other  drive. 
And  as  fast  as  any  Apple  disk  drive.) 


And  each  GT  comes  with  the  exclusive 
GT  DrivingSystem™  of  software  programs.* 
World-class  word  processing  is  a  breeze  with 
theCT  Estate  WordProcessorJ"'  And  your  dealer 
will  describe  the  two  additional  programs  that 
allow  GT  owners  to  accelerate  their  computer 

drivinS  s|<j||s.  'Intli-Kleri.isst.irKlnrdcquipmenl. 

Also,  the  1984  Indus  GT  is  covered  with  the 
C7  PortaCase™  A  stylish  case  that  conveniently 
doubles  as  a  80-disk  storage  file. 

Parks  like  a  Beetle. 

The  GT's  small,  sleek,  condensed  size  makes  it 
easy  to  park. 

And  its  low  price  makes  it  easy  to  buy 

$449  for  Atari.  $329  for  Apple. 

So  see  and  test  drive  the  incredible  new  1984 
Indus  GT  at  your  nearest 
computer  dealer  soon. 

The  drive  will  be 
well  worth  it. 


INDUS 


The  all-new  1984  Indus  GT  Disk  Drive. 

The  most  advanced,  most  tiandsome  disk  drive  in  the  world. 


fnrdealerinlbrmalion.a-jll  1-800-33-INDUS.  In  California,  1-800-54-INDUS.  213/882-9600. 

©  1983  Indus  Syslems,  9304  DeeririK  Avenue,  Chatswiirtb,  CA9I31I.  Thp  Indus  CT  is  a  product  of  Indus  Systems.  Alari  is  a  registerecJ  trademark  of  Atari,  Inc.  Apple  is  a 

registered  tradcm-irk  of  Apple  Computer,  Inc. 


80  COLUMN  PRINTER  SALE— $149.00* 


COM-STAR  T/F 

Tractor 
Friction 
Printer 


** 


SlolF' 


COM-STAR 


Lowest  Priced,  Best  Quality,  Tractor- Friction  Printers  in  the  U.S.A. 
Fast  80-t20-1 60  Characters  Per  Second    •  40, 46, 66, 80, 96, 1 32  Characters  Per  Line  Spacing 
•  Word  Processing    •  Print  Labels,  Letters,  Graphs  and  Tables    •  List  Your  Programs 
Print  Out  Data  from  Modem  Services    •  "The  Most  Important  Accessory  for  Your  Computer" 


*STX-80  COLUMN 
PRINTER— $149.00 

Prints  full  80  columns.  Super  silent 
operation.  60  CPS.  prints  Hi-resolution 
graphics  and  block  graphics,  expanded 
character  set.  exceptionally  clear 
characters,  fantastic  print  quality,  uses 
inexpensive  thermal  paper!  Best  thermal 
printer  in  the  U.S.A.!  (Centronics  Parallel 
Interface). 

"DELUXE  COMSTAR  T/F 
80  CPS  PRINTER— S199.00 

The  COMSTAR  T/F  (Tractor  Friction) 
PRINTER  is  exceptionally  versatile.  It 
prints  8'/i"  X  11"  standard  size  single 
sheet  stationary  or  continuous  feed  com- 
puter paper.  Bi-directional,  impact  dot 
matrix,  80  CPS,  224  characters.  (Cen- 
tronics Parallel  Interface). 

Premium  Quality— 120  CPS 

COMSTAR  T/F  SUPER-10X 

PRINTER— S289.00 

COMSTAR  T/F  (Tractor  Friction)  SUPER- 
10X  PRINTER  gives  you  all  the  features 
of  the  COMSTAR  T/F  PRINTER  plus  a 
10"  carriage,  120  CPS,  9  x  9  dot  matrix 
with  double  strike  capability  for  18  x  IB 
del  matrix  (near  letter  quality),  high 
resolution  bit  image  (120  x  144  dot 
matrix),  underlining,  back  spacing,  left 
and  right  margin  settings,  true  lower 
decenders  with  super  and  subscripts, 
prints    standard,    italic,    block    graphics 


and  special  characters,  plus  2K  of  user 
definable  characters!  The  COMSTAR  T/F 
SUPER-10X  PRINTER  was  Rated  No.  1  by 
■Popular  Science  Magazine."  It  gives  you 
print  quality  and  features  found  on 
printers  costing  twice  as  much!!  (Cen- 
tronics Parallel  Interface)  (Better  than  Ep- 
son FX80). 

Premium  Quality— 120  CPS 
COMSTAR  T/F  SUPER-15'A" 

PRINTER— $379.00 

COMSTAR  T/F  SUPER  15V"  PRINTER 
has  all  the  features  of  the  COMSTAR  T/F 
SUPER-10X  PRINTER  plus  a  15'/,"  car- 
riage  and  more  powerful  electronics 
components  to  handle  large  ledger 
business  forms!  (Better  than  Epson  FX 
100). 

Superior  Quality 

SUPER  HIGH  SPEED-ISO  CPS 

COMSTAR  T/F  10" 

PRINTER— $489.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
(Tractor  Friction)  PRINTER  has  all  the 
features  of  the  COMSTAR  SUPER-IOX 
PRINTER  plus  SUPER  HIGH  SPEED 
PRINTING— 160  CPS,  100%  duty  cycle, 
8K  buffer,  diverse  character  fonts, 
special  symbols  and  true  decenders,  ver- 
tical and  horizontal  tabs.  RED  HOT 
BUSINESS  PRINTER  at  an  unbelievable 
low  price!!  (Serial  or  Centronics  Parallel 
Interface) 


Add  S17.50  for  shipping,  handling  and  insurance.  WE  DO  NOT  EXPORT 
TO  OTHER  COUNTRIES  EXCEPT  CANADA 


I  Enclose  Cashiers  Ctieck,  Money  Order  or  Personal  Check.  Allow  14  days 
(„,  H=i...„„,  o  .„  7  J....  . K ^-.j  ,  ^jy  espress  mail!  Canada 

MASTER  CARD  ACCEPTED.  We 


(or  delivery,  2  to  7  days  for  pfione  orders,  l  day  espress  mail!  Canada 
'  orders  must  be  in  U.S.  dollars.  VISA 


I  sriip  C.O.D. 

SUPER-10" 


Superior  Quality 

SUPER  HIGH  SPEED-160  CPS 

COMSTAR  T/F  15'/i" 

PRINTER— $579.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
15":"  PRINTER  has  all  the  features  of  the 
SUPER  HIGH  SPEED  COMSTAR  T/F  10" 
PRINTER  plus  a  15''i"  carriage  and  more 
powerful  electronics  to  handle  larger 
ledger  business  forms!  Exclusive  bottom 
paper  feed'! 


PARALLEL  INTERFACES 

For  VIC-20  and  COM-64— S49.00 
For  All  Apple  Computers— S79.00 

NOTE:      Other     printer     interfaces 
available  at  computer  stores! 


Double 

Immediate  Replacement 

Warranty 

We  have  doubled  the  normal  90  day  war- 
ranty  to  180  days.  Therefore  if  your 
printer  fails  within  "180  days"  from  the 
date  of  purchase  you  simply  send  your 
printer  to  us  via  United  Parcel  Service, 
prepaid.  We  will  IMMEDIATELY  send  you 
a  replacement  printer  at  no  charge, 
prepaid.  This  warranty,  once  again, 
proves  that  WE  LOVE  OUR 
CUSTOMERS! 


CK|TCDpO|7CC    (WELOVEOUHCUSrOUERSI 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Plion*  312/382-5244  to  order 
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EXECUTIVE   LETTER   QUALITY 

DAISY  WHEEL  PRINTER  SALE  ^379°° 


COMSTAR  13" 


computer  printer 


COMSTAR  13"  "DAISY  WHEEL"  POWER  TYPE 
PRINTER  is  typewriter  friendly.  It  uses  a  simple 
drop  in  cassette  ribbon.  Just  turn  on  ttie  COM- 
STAR 13"  for  Crip  executive  quality  cor- 
respondence at  18  CPS  with  a  daisy  wheel  that 
prints  96  power  type  flawless  characters,  bi- 
directional. Designed  for  personal  and  business 
applications.  COMSTAR  13"  carriage  accepts 
paper  from  letter  to  legal  size,  continuous  com- 
puter paper  or  singie  sheets,  you  can  set  right 
and  left  margins,  vertical  and  horizontal  tabs. 
LIST  PRICE  *5g9°°  SALE  PRICE  ^STg-" 


ff  OLYMPIA  "DAISY  WHEEL"  COMBINATION 

PRINTER/TYPEWRITER  SALE   ^489°° 


O  Olympia 


if  Olympia 


THE  ^r   Vfiyifipia  COMPUTER     PRINTER 

ELECTRONIC  TYPEWRITER  is  the  ultimate  for 
Home,  Office,  and  Word  Processing.  You  get  the 
best  Electronic  Typewriter  made  and  used  by 
the  world's  largest  corporations  (better  tfian  IBM 
Selectric)  plus  a  Superb  Executive  Cor- 
respondence Computer  Printer!!  (Two  machines 
in  one!)  Just  flick  the  switch  for  the  option  you 
want  to  use.  The  extra  large  carriage  allows 
14'A"  printer  paper  width.  It  has  cassette  ribbon 
lift  off  correction.  Baud  rates,  Jumper  selectable 
75  through  19,200  (serial  or  parallel  interface) 
LIST '799°°  SALE  =489" 


(WORLD'S  FINEST) 


•   15  DAY  FREE  TRIAL  —  90  DAY  FREE  REPLACEMENT  GUARANTEE 


j  Add  $17,50  for  shipping  and  handling!! 


I  Enclose  Cashiers  Cfieck,  Money  Order  or  Personal  Check.  Allow 
I  14  days  for  delivery,  2  to  7  days  for  phone  orders.  1  day  express 
I  mail!  Canada  orders  must  be  In  U.S.  dollars.  VISA  ~  MASTER 
I  CARD  ACCEPTED.  We  ship  C.O.D. 


qIYTERPRIZES    "^f '^°^EOURCUSIOU£BSl 
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more  courses  that  fit  my  schedule.  I  began  to  worry 
that  I  would  forget  everything  I  had  learned  at 
camp.  I  decided  that  the  only  way  to  keep  learning 
was  to  get  my  own  computer.  My  husband  was 
very  supportive.  He  said  he'd  get  me  a  low-cost 
computer  as  a  combined  birthday  and  anniversary 
gift.  He  was  so  proud  that  I  had  gone  to  the  camp 
and  that  I  was  learning  about  computers  and 
having  fun." 

Grandmother  Computer  Chic 

When  my  mother  got  her  computer  home,  at  first 
she  couldn't  decide  where  to  put  it.  She  ended  up 
putting  it  on  the  kitchen  table.  With  its  software, 
manuals,  and  electric  cables,  the  computer  took 
up  almost  the  whole  table. 

My  mother  and  father  now  have  to  eat  their 
meals  on  a  tiny  corner  of  the  table  opposite  the 
computer.  My  mother  eats  her  meals  while  she  is 
studying  the  gift  certificates  she  got  with  her  com- 
puter. While  my  father  is  eating,  he  just  stares  at 
the  back  of  the  computer. 

My  mother  is  very  proud  of  her  new  com- 
puter. When  she  first  got  it,  she  invited  all  her 
friends  and  family  over  to  see  it.  The  reactions 
were  diverse. 

Her  grandchildren,  Shannon  (8)  and  Laurel 
(5),  were  fascinated  with  the  computer's  voice 
synthesizer  and  the  Sesame  Street  computer 
games  my  mother  bought.  Both  grandchildren 
use  computers  at  school  and  arrived  with  the  im- 
pression that  they  were  "way  ahead  of  Mom 
Mom"  on  the  computer.  But  Mom  Mom  held  her 
own.  She  got  a  great  deal  of  pleasure  out  of  being 
an  honorary  Whiz  Kid. 

Mom's  friends  have  had  all  sorts  of  reactions. 
They  are  proud  of  her  and  are  amazed  that  she 
went  out  and  bought  a  computer.  They  are  even 
more  amazed  that  she  actually  seems  to  be  using 
it — to  write  letters  using  Bank  Street  Writer  and 
to  create  Christmas-card  mailing  labels  using 
PFS:File. 

This  year  Mom's  friends  are  bragging  that 
they  all  got  Christmas  cards  addressed  by  Mom's 
computer.  "1  could  tell  it  was  a  computer  that  did 
it,"  one  friend  told  me,  "because  it  put  my  last 
name  first  on  the  envelope." 

Mom's  friends  think  that  she  uses  her  com- 
puter all  the  time.  When  they  call  her  on  the 
phone,  if  she  sounds  vague  or  distracted,  they 
say,  "Libby,  are  you  playing  with  your  computer 
again?" 

Most  of  Mom's  friends  are  very  proud  of  what 
she  is  doing,  but  they  are  reluctant  to  follow  in 
her  footsteps.  "I  know  computers  are  the  up  and 
coming  thing,"  one  friend  told  her.  "But  I  could 
never  work  one.  I'd  be  lost." 

My  mother  laughs  at  this  kind  of  reaction. 
"The  biggest  thing  I  have  found,"  she  says,  "is 


how  easy  computers  are.  I  thought  they  would  be 
much  harder." 

Then  she  shrugs  and  frowns.  "It's  funny, 
though,"  she  says.  "They  are  easy,  but  you  still 
need  someone  to  call  on — just  for  help  on  the 
simple  things.  The  most  frustrating  part  is  when 
you  are  working  by  yourself  and  you  come  to  a 
standstill  because  a  certain  button  doesn't  work. 
It  always  worked  before,  but  now  it  doesn't  work, 
and  you  feel  completely  lost  and  you  don't  know 
what  to  do. 

"A  person  needs  someone  to  call  when  they 
feel  frustrated — someone  to  help  them,  someone 
to  follow  up.  And  half  the  time  advice  over  the 
phone  is  not  enough.  You  need  someone  looking 
over  your  shoulder  to  see  exactly  what  you're 
doing.  The  problem  is  always  something  small, 
but  it's  enough  to  stop  you  in  your  tracks." 

How  Grandmothers  Get  Intimate  With 
Their  Computers 

According  to  my  mother,  "The  most  exciting  time 
I  had  with  my  computer  was  when  I  made  the 
mailing  labels  come  out  on  the  printer.  'Look!'  I 
shouted.  Tt  works!  I  figured  it  out  myself!' 

"Using  a  computer  is  like  eating  Chinese 
food,"  my  mother  told  me.  "You  eat  Chinese 
food,  and  it  tastes  great.  Then,  soon  after  you  are 
done  eating,  you  are  hungry  for  more. 

"Computers  are  the  same  way.  You  do  some- 
thing on  it,  and  it  feels  great.  Then  you  run  out  of 
things  to  do  and  you  say,  'What  can  I  do  now?' 
It's  very  frustrating.  I  have  so  much  fun  working 
on  it,  but  then  I  finish,  and  I  think  I  have  to  invent 
something  new.  But  to  do  something  new  I  have 
to  learn  more  about  the  computer.  It's  like  1  am 
always  hungry  for  more  computing.  My  appetite 
keeps  growing." 

I'm  Not  Leaving  My  Computer! 

Each  winter  my  mother  and  father  fly  south  along 
with  the  birds.  They  spend  the  cold,  bitter  months 
in  a  little  resort  town  tiicked  away  in  the  Florida 
keys.  My  mother  flees  the  Philadelphia  area 
around  Thanksgiving,  usually  after  the  first  cold, 
soggy  November  rainstorm. 

But  this  year  is  different.  When  Thanksgiving 
came  and  went  and  my  mother  was  stili  in  the 
Philadelphia  area,  her  friends  became  puzzled 
and  asked  her  why  she  wasn't  heading  south. 

"I'd  like  to  get  away  from  this  cold  weather," 
my  mother  replied.  "But  I'm  not  going  to  leave 
my  computer!" 

Mom's  Bright  Idea 

By  mid-November  my  mother  had  so  many  man- 
uals, cables,  software  boxes,  and  add-ons  she 
would  have  needed  to  rent  a  U-Haul  trailer  to  get 
her  computer  down  to  Florida. 
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She  checked  into  renting  a  station  wagon 
and  having  my  brother  drive  her  computer  to 
Florida.  Then  she  realized  that  her  cottage  there 
was  barely  large  enough  for  her  and  my  father. 
She  and  my  father  have  a  loving  but  stormy  re- 
lationship. She  could  imagine  what  would  happen 
if  my  father  arrived  in  Florida  and  found  that  he 
had  been  replaced  by  a  computer. 

What  was  my  mother  to  do?  She  really  wanted 
to  go  to  Florida,  but  she  couldn't  bear  to  leave  her 
computer  in  Pennsylvania.  Yet  she  didn't  dare 
take  it  with  her. 

My  mother  is  no  dumb  bunny.  She  wanted  a 
computer  in  Florida,  so  if  her  Pennsylvania  com- 
puter wouldn't  fit,  the  answer  was  obvious:  She 
needed  a  new  computer — a  smallish  kind  of  com- 
puter that  she  could  squeeze  into  the  Florida  cot- 
tage along  with  her  and  my  father. 

Once  my  mother  has  a  good  idea  she  doesn't 
waste  any  time  putting  it  into  action.  As  I  write 
this  article,  she  is  busy  saving  up  for  a  new 
computer — a  portable. 

And  she's  keeping  busy  on  her  old  computer, 
using  her  spreadsheet  to  chart  her  stocks  and 
bonds  and  keeping  an  inventory  of  furniture  and 
other  household  possessions.  And  she's  churning 
out  a  snowstorm  of  letters  to  me  on  her  word 
processor. 

It  All  Started  With  Computer  Camp 

I've  been  away  from  home  for  seventeen  years, 
yet  1  have  gotten  more  letters  from  my  mother  in 
the  last  couple  of  months  than  in  all  those  seven- 
teen years  combined.  And  all  the  letters  are  chock 
full  of  motherly  advice  (not  to  mention  nagging). 

Each  morning  I  go  to  the  mailbox  and  find  two 
more  letters  from  my  mother — all  generated  on 
her  infernal  (excuse  me.  Mom)  word  processor. 

I'm  beginning  to  wonder  if  I  did  the  right 
thing.  Was  it  really  such  a  good  idea  to  get  my 
mother  turned  on  to  computers? 

She's  beginning  to  talk  about  electronic  mail 
and  linking  us  up  on  a  Bulletin  Board  System. 
This  way  she  can  download  ideas  and  advice  any- 
time she  wants,  maybe  even  several  times  a  day. 
It  will  be  just  as  if  she  lived  next  door. 

I'm  very  proud  of  Mom.  And  I'm  glad  that 
she  went  to  computer  camp.  The  only  thing  that 
worries  me  is  where  is  this  going  to  end? 

My  advice  to  those  of  you  out  there  with 
mothers  and  grandmothers  is  simple:  Once  you 
start  them  computing,  watch  out!  O 
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C-10  For  35c  (100  LOT) 

FOR  YOUR  COMPUTER 

ALL  CASSETTES  ARE: 

•  DIGITAL  COMPUTER  GRADE  TAPE 

•  HIGH  FREQUENCY  RESPONSE 

•  WIDE  DYNAMIC  RANGE 

•  100%  ERROR  FREE 

•  5  SCREW  HOUSING 

•  FULLY  GUARANTEED 

•  CAREFULLY  PACKED 

—All  Prices  Include  U.S.  Shipping  and  Handling— 

-  PHONE  ORDERS  ADD  $2.50  C. CD.  FEE- 
\FOR  CANADIAN  ORDERS  SEE  BO  TTOM  OF  AD] 

••"COMPUTER  GRADE"  tape  is  very  tiigh  response 
oxide  formulation  by  a  Major  U.S.  Manufacturer. 

**BASF    tapes    are    the    top    of    the    line    oxide 
formulation  for  the  BASF  corporation. 

**For  orders  of  1000  or  more  you  may  specify  color 

choice  (Black,  Beige,  or  White). 

###***♦♦♦*♦♦***»»****#*»*#*####»###••###•###• 

-  CUSTOM  LENGTHS  AVAILABLE  - 
COMPUTER  TAPE  PRICES 

LENGTH  25  LOT  100  LOT        1000  LOT 

COMPUTER  GRADE  TAPES 

.45/11.25        .35/36.00 

.50/12.50        .35/35.00 

.50/13.75        .40/40.00 

.60/15.00         .45/45.00 
-  BASF  DPS  GRADE  TAPES 

.50/12.50        .40/40.00 

.55/13.75        .40/40.00 

.60/15.00        .45/45.00 

.65/16.25        .50/50.00 

Lot  Prices deduct  1c  from  1000  lot  price 

Lot  Prices deduct  2c  from  1000  lot  price 


C-5 
C-10 
C-20 
C-30 

C-5 
C-10 
C-20 
C-30 
5000 
10000 


.30/300.00 
.30/300.00 
.35/350.00 
.40/400.00 

.35/350.00 
.35/350.00 
.40/400.00 
.45/450.00 


Quality  Norelco  Cassette  Case... and 
Label  Prices 

[  WITH  CASSETTE  ORDERS  ONL  Y\ 
25-249  Cases/. 20  Ea,       250/.13Ea.        1000/.11  Ea, 
25-499  Soft  Poly  Cases/. 18  Ea.  500/. 11  Ea. 

Labels -Sheet       12/. 20       120/1.70       1200/14.50 
Tractor  Feed  Cassette  Labels  (1  up)  1000/14.50 

High  Spaed  Digital  Computer  Cassette  Duplicators 
(call  for  information) 

Send  Cashier's  Checks,  Money  Orders, 
and  Checks  To: 

CASS-A-TAPES 

Box8123-H 

Kansas  City,  Mo.  64112 

816-444-4651 

For  Canadian  Orders  ONLY  add  shipping  as  follows: 

25-99  tapes  add  $2.00  to  total  cost 

For  each  100  tapes  ordered  add  $6.00  to  total  cost 

For  cases  add  same  amounts  as  above  for  shipping 
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READERS'  FEEDRACK 


The  Editors  and  Readers  of  COMPUTE! 


What's  A  Cassette  Buffer? 

What  is  the  cassette  buffer  used  for? 

James  Kenny 

A  buffer  is  a  temporary  storage  area.  The  cassette  buffer 
is  a  special  set  of  Random  Access  Memory  (RAM)  loca- 
tions where  the  computer's  operating  system  places 
information  zohich  is  to  be  trnusferred  to  or  from  a  cas- 
sette storage  device.  Because  the  operating  system  only 
uses  this  buffer  during  tape  operations,  it  is  available 
for  other  uses  between  tape  operations. 

If  you  switch  from  tape  to  disk  storage,  the  cassette 
buffer  no  longer  has  a  special  function,  and  memory  in 
the  buffer  can  he  used  the  same  as  other  KAM  locations. 

In  Commodore  computers  the  cassette  buffer  is  in 
locations  828-1019.  In  Atari,  locations  1021-1151  are 
used. 

Changing  The  1541  Device  Number 

I  just  purchased  my  second  Commodore  1541 
disk  drive.  I  want  to  change  the  device  number 
using  the  hardware  method,  but  I  am  having 
trouble  doing  it. 

The  directions  in  the  1541  user's  manual  give 
ten  steps  to  follow,  but  they  leave  out  the  most 
important  part.  Step  number  seven  states:  "Locate 
device  number  jumpers.  If  facing  the  front  of  the 
drive,  it's  on  the  left  edge  in  the  middle  of  the 
board."  Direction  number  eight  states:  "Cut  either 
or  both  of  jumpers  1  and  2." 

But  once  you  have  removed  the  case  as  di- 
rected, you  find  five  plugs  labeled  P4  through  P8 
with  a  total  of  21  wires.  The  instructions  don't  tell 
which  wire  is  which. 

Can  you  tell  me  which  are  the  correct  two 
wires  to  cut  so  I  can  change  the  device  number? 

Pat  Cardinal 

Some  of  this  confusion  is  due  to  the  fact  that  the  junipers 
-which  are  to  be  cut  are  not  wires.  The  jumpers  are  actu- 
ally tioo  mounds  of  solder,  each  about  'A  inch  in 
diameter.  If  you  face  the  front  of  the  disk  drive,  they  are 
located  Ofi  the  left  edge  of  the  circuit  board  behind  the 
plugs  and  'wires  you  described.  As  shown  in  the  picture, 
each  round  drop  of  solder  is  separated  into  halves, 
with  a  thin  strand  of  solder  connecting  each  half.  You 
cut  the  jumpers  by  taking  a  sharp,  pointed  object  and 
scraping  aivay,  or  breaking,  the  connecting  strand.  Be 
careful  to  avoid  damaging  any  other  components  on  the 
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The  jumpers  to  be  cut  can  be  found  on  the  left  side  of 
the  circuit  board. 

circuit  hoard. 

As  stnfed  in  the  user's  manual,  cutting  jumper 
one  or  jumper  tioo,  or  both,  produces  different  device 
numbers.  Here  is  a  chart  shoxving  which  device  number 
IS  produced  when  the  jumpers  are  cut: 


JumperCul 

New  Device  Number 

None 

8 

1 

9 

2 

10 

land  2 

11 

One  important  note  about  changing  the  disk  drive  device 
number:  Once  the  jumpers  are  cut,  it's  difficult  to  re- 
verse. Also,  this  sort  of  modification  should  be  left  to  an 
experienced  electronics  technician  unless  you  knozo 
exactly  what  you  are  doing.  And  be  sure  the  drive  is 
not  plugged  into  the  'wall  if  you  remove  the  cover  to 
attempt  this  fix. 

Commodore  6502  And  6510  Chips 

I  am  somewhat  confused.  Is  a  6510  microprocessor 
compatible  with  the  6502  microprocessor?  The 
box  my  Commodore  64  came  in  says  that  this  is 
true,  but  I  have  read  differently.  If  this  is  true,  can 
I  buy  a  book  on  programming  the  6502  and  use  it 
with  the  6510  that  is  in  the  64? 

Shawn  Carnell 

Yes,  you  can.  The  only  differeiices  betiveen  the  6502 
and  the  6510  are  locations  0  and  1.  In  the  6510,  these 
tzoo  locations  act  as  an  eight-hit  parallel  input/output 
port.  By  POKEing  zmlues  into  memory  locations  0  and 
1  on  the  64,  you  can  do  such  things  as  sioitch  out  BASIC 
and  Kernal  ROM  and  turn  them  into  usable  RAM.  For 
more  details  on  the  memory  bank-switching  technique, 
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The  VIC-20  is  a  versatile  computer.  Its  pro- 
grammable color,  graphics,  and  sound  can  add 
a  lot  to  game  programs. 

Over  the  past  Few  years,  COMPUTEI 
Magazine  has  published  a  wide  variety  of 
games  for  the  VIC.  But  some  back  issues  are 
hard  to  find  or  unavailable. 

That's  why  the  editors  of  COMPUTEI 
have  chosen  the  best  games,  revised  them, 
and  added  previously  unpublished  games,  put- 
ting them  together  Into  COMPUTEi's  First 
Book  of  VIC  Games.  Each  game  has  been 
tested  and  debugged  and  is  ready  to  type  into 
a  VIC-20. 

First  Book  of  VIC  Games  contains  fast- 
action  arcade  games  that  require  quick 
reflexes,  as  well  as  strategy  games  that  test 
logical  skills.  For  SI2.95  you  get  two  dozen 
games,  including: 

Time  Bomb  —  You  hear  the  time  bomb  tick-- 

ing,  and  you  have  to  find  your  way  through 

the  maze  to  defuse  it.  But  the  maze  is  larger 

than  the  screen,  and  you  can't  always  see 

where  the  dead  ends  are. 

Closeout  —  The  local  department  store  is 

having  a  sale.  You  try  to  snatch  as  many  sale 

Items  as  possible,  while  avoiding  the  horde  of 

bargain  hunters  who  are  trying  to  thwart  you. 

Cryptic  Numbers  —  A  good  logic  game.  The  computer  picks  a  pattern  of 

numbers  that  you  have  to  guess.  After  each  turn  you  learn  how  close  you 

were. 

Air  Defense  —  Missiles  are  falling  out  of  the  sky  onto  your  city.  Aim 

carefully;  you  get  only  one  shot  at  each  missile. 

Thunderbird  —  Your  goal  is  to  break  out  of  the  playing  field  by  using  the 

thunderbird  that  controls  the  satellite. 

Sky  Olver  —  Put  on  your  parachute,  jump  out  of  the  plane,  and  try  to 

land  on  one  of  the  targets.  Watch  out  for  wind  currents  that  may  blow  you 

off  course. 

Deflector  —  A  ball  is  bouncing  around  the  screen,  You  can  aim  it  toward 

targets  by  strategically  placing  deflectors  that  change  its  direction. 

Hidden  Maze  —  Lost  in  a  maze,  you're  trying  to  get  out.  But  it  is  dark, 

and  you  can  see  only  a  few  spaces  in  front  of  you. 

Outpost  —  Your  small  fortress  is  under  siege.  You  have  two  types  of  lasers 

and  some  torpedoes.  Unfortunately,  the  energy  supply  is  dwindling  and 

the  computer  is  on  the  blink.  The  supply  ship  may  (or  may  not)  show  up  in 

time  to  make  repairs. 

First  Book  of  VIC  Games  is  more  than  just  a  book  of  program  listings.  Each  program  is  annotated  and  explained;  you  can  modify  the  games  if 

you  like  or  use  the  many  programming  techniques  in  your  own  games.  Also  included  is  a  useful  program  you  can  use  to  draw  mazes  for 

games  you  write.  Three  chapters  show  you  how  to  develop  a  game  program.  Another  tells  you  how  to  take  advantage  of  the  VlC's  sound, 

graphics,  and  color  capabilities.  The  index  lists  references  where  you  can  learn  more  about  programming.  And  First  Book  of  VIC  Games  is 

spiral  bound  to  lie  flat  while  you  are  typing  in  programs, 

ORDER  NOW 

Available  at  computer  dealers  and  bookstores  nationwide.  Or  send  a  check  or  money  order  to 
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To  order  directly,  call 

TOLL  FREE 


see  "6510  Microprocessor  Chip  Specifications"  (Ap-  49206  data  252,165,252,208,008,173 

vendix  L),  nnd  "Metnorif  Mniinwiiieiil  on  the  Conitno- 

dore  64,"  page  260  of  t lie  Commodore  64  Program-  ^9212   data  004 ,  212 ,  041 ,  254, 141 ,  004 

mer's  Reference  Guide.  49218   DATA  212,076,049,234,000,050 

Other  than  these  two  locations,  the  6502  and  the 

6510  are  the  same.  492  24  data  000,000.129,064,244 


Atari  Compatibility 

Is  the  BASIC  in  the  new  Ataris  the  same  as  the 
BASIC  in  the  400  and  800?  hi  other  words,  will 
the  games  and  programs  for  the  400  and  800  run 
on  the  new  XL  and  XLD  computers?  Also,  how 
many  player/missiles  do  the  new  Ataris  have? 

Dennis  Heckman 

Although  some  changes  have  been  made  in  the  newer 
models,  BASIC  is  still  essentially  the  same.  Programs 
written  for  the  older  }tiodeIs  should  run  on  the  XLs, 
provided  the  programmer  has  follotoed  Atari's  rules 
regarding  the  ROM  jump  tables.  Some  ROM  routines 
have  been  mo'oed  in  the  newer  models,  and  a  direct  call 
to  a  ROM  routine  which  has  been  moved  will  yield 
unpredictable  results. 

The  nezo  Atari  XL  computers  have  four  players 
and  four  missiles,  as  did  the  older  models. 

A  64  Keyboard  Tone 

Will  you  publish  a  positive  stroke  key  tone  gener- 
ator for  the  64,  like  the  one  for  the  VIC  in  the 
November  1983  issue  of  COMPUTE!? 

Andrew  Predoehl 

Try  this: 

100  PRINT" {CLR} {RVS} BEEP-KEY" :PRINT" 

[2    DOWN} READING  MACHINE  LANGUAGE..." 

110  FOR  1=49152  TO  49228:READ  A:CK=CK+A:P 

OKE  I, A: NEXT 
120  IF  CK09872  THEN  PRINT"ERROR  IN  DATA 

E SPACE} STATEMENTS .  CHECK  TYPING": END 

130  SYS491 52 : PRINT " [ HOME } { RVS } " ? TAB ( 8 ) j " 
{SPACE} NOW  ACTIVATED. {6  DOWN}" 

140  END 

49152  DATA  120,169,013,141,020,003 

49158  DATA  169,192,141,021,003,088 

49164  DATA  096,165,251,197,197,208 

49170  DATA  004,201,064,208,026,165 

49176  DATA  197,201,064,240,020,162 

49182  DATA  006,189,070,192,157,000 

49188  DATA  212,202,016,247,169,015 

49194  DATA  141,024,212,169,004,133 

49200    DATA    252,165,197,133,251,198 
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Different  Number  Systems 

When  programming  books  mention  a  memory 
location,  many  times  they  put  a  $  in  front  of  the 
number.  Why  is  this  done? 

Marc  Foglia 

Humans  are  accustomed  to  counting  by  tens,  using 
decimal  (base  10)  numbers.  Computers  count  by  twos, 
using  binary  numbers.  But  binary  numbers,  such  as 
lOHlOW,  are  not  easy  to  read,  so  machine  language 
programmers  commonly  use  hexadecimal  (base  16) 
numbers  because  they  are  easier  to  read  than  binary 
numbers,  and  easier  to  translate  into  the  computer's 
bi}iary  system  than  are  decimal  )nimbers.  BASIC  pro- 
grannners,  however,  stick  with  ordinary  decimal. 

Since  all  three  number  systems  can  be  used  in 
computer  progranuning,  we  must  be  able  to  differentiate 
betioeen  them.  For  example,  if  you  see  the  innnber  0100, 
you  must  know  if  it  means  100  (as  a  decimal  number) 
or  4  (as  a  binary  number)  or  256  (as  a  hexadecimal 
number). 

To  prevent  this  confusion,  programmers  commonly 
idenlifxj  binary  and  hexadecimal  numbers  'with  special 
symbols: 

%0100     (binary) 
$0100     (hexadecimal) 

100     (no  symbol  for  decimal) 


A 1540  Disic  Formatting  Disaster 

I  apparently  made  a  big  mistake!  I  own  a  VIC-20 
and  a  1540  disk  drive.  I  accidentally  reformatted  a 
disk  that  already  had  programs  on  it.  I  used  the 
following  syntax:  OPEN  15,8,15,"N0:DISK1 
SD1,1B".  I  noticed  that  I  didn't  hear  the  usual 
"rattling"  sound.  I  want  to  know  if  there  is  any 
way  of  recovering  the  lost  or  erased  files.  1  almost 
had  that  disk  full. 

Jeff  Lovell 

Unfortunately,  your  programs  were  erased. 

A  number  of  things  happen  lohen  you  format  a 
disk.  First,  the  entire  disk  is  erased,  then  the  directory 
and  BAM  (Block  Availability  Map)  are  created.  Next, 
timing  and  block  markers  are  created,  and  the  two- 
character  disk  identification  code  is  lorUten  on  every 
block  of  the  disk. 

To  format  a  disk,  use  the  syntax: 

OPEN  15,8,15:  PRINT#15/'N0;DISK  NAME, ID  ": 
CLOSE  15 

where  DISK  NAME  is  any  name  up  to  16  characters 
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A  new  concept 
in  interactive  visual 
learning. 

CodePro-64" 


Now  you  can  ieam  to  code  in  BASIC  and 
develop  advanced  programming  skills  with 
graphics,  sprites  and  music — visually.  You 
learn  by  interact]  ng  with  CodePro-64,  a  new 
concept  in  interactive  visual  learning. 
SEE  PROGRAM  EXECUTION 

Imagine  actually  seeing  BASIC  state- 
ments execute.  CodePro-64  guides  you 
through  structured  examples  of  BASIC  pro- 
gram segments.  You  enter  the  requested  data 
or  let  CodePrfr64  do  the  typing  for  you.  {It 
will  not  let  you  make  a  mistake. ) 

You  step  through  and  actually  see  the 
execution  of  sample  program  statements  by 
simply  pressing  the  space  bar.  CodePro44 
does  ljie  rest  You  see  statements  with  cor- 
responding graphics  and  variable  value 
displays. 

EXTENSIVE  TUTORIAL 

CodePrc^64's  extensive  tutorial  guides 
you  through  each  BASIC  command,  pro- 
gram statement,  and  function.  You  get  clear 
explanations.  Whene  appropriate,  you  invoke 
BasicView  to  see  examples  execute  and 
watch  their  flow  charts  and  variables  change. 

By  seeing  graphic  displays  of  program  seg- 
ment execution  you  learn  by  visual  example. 
You  learn  faster  and  grasp  programming 
concepts  easierwth  CodePro-64  because 
you  immediately  see  the  results  of  your  input. 

You  control  your  leami  ng.  You  can  go 
through  the  tutorial  sequentially,  or  return  to 
the  main  menu  and  select  different  topics,  or 
use  keywords  to  select  language  elements  to 
study.  You  can  page  back  and  forth  between 
screens  within  a  topic  at  the  touch  of  a  func- 
tion key. 

Once  you  have  practiced  and  mastered  the 
BASIC  language  elements  you  move  on  to 


more  advanced  concepts.  You  learn  about 

^rite  and  music  programming. 

SPRITE  GENERATOR 
&  DEMONSTRATOR 

CodePro-64's  sprite  generator  lets  you 
define  your  oum  spriteson  the  screen.  You 
learn  how  to  define  sprites  and  what  data 
values  conespond  to  your  sprite  definitions. 
(You  can  then  save  your  sprite  data  to  a 
diskette  file  for  use  in  your  own  programs. ) 
You  can  easily  experiment  vAth  different 
definitions  and  make  changes  to  imme- 
diately see  the  effects. 

We  also  help  you  learn  to  program  with 
sprites  by  giving  you  a  sprite  demonstrator  so 
you  can  see  the  effect  of  changng  register 
values.  You  can  experiment  by  moving  your 
sprite  around  in  a  screen  segment,  change  its 
color  and  see  the  effects  of  your  changes.  You 
learn  by  visual  examples. 

MUSIC  GENERATOR 
&  DEMONSTRATOR 

Our  Music  Generator  and  Music  Demon- 
strutormW  provide  hours  of  instruction  and 
creative  enjoyment.  From  the  beginning  of 
your  instruction  you  can  compose  simple 
tunes  on  the  screen  using  the  generator. 
Once  you've  completed  a  composition  you 
can  save  the  tune  and  its  associated  SI  D 
parameters  to  a  diskette  file.  Our  music  sam- 


OUR  GUARANTEE 

We  guarantee  your  satisfaction  You 
must  be  satisfied  with  CodePn>64  for 
the  Commodore-64,  Try  it  for  1 0  days 
and  if  for  any  reason  you  are  not  satisfied 
return  it  to  us  (undamaged)  for  a  M 
x^vnd.Norisk. 
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pie  program  can  be  used  alone  or  incorpo- 
rated into  your  own  programs  to  read  the 
saved  music  file  and  replay  your  songs. 

Our  music  demonstrator  lets  you  experi- 
ment wiih  various  combinations  of  music 
programming  parameters  and  hear  the 
results.  All  you  do  is  enter  rows  of  SID 
parameters  on  the  screen  to  create  a  particu- 
lar sound.  Then  you  hear  each  sound  by 
playing  the  "keyboard organ  "in  teal  time  as 
you  shift  from  row  to  row  of  SID  parameters. 
By  seeing  your  input  and  hearing  the  result 
you  quickly  Ieam  how  to  create  new  musical 
sounds  and  special  sound  effects. 

Whether  you're  a  beginning  programmer 
or  an  experienced  professional ,  CodePro^ 
will  help  you  improve  you  Commodore  64 
programming  skills.  Were  sure  because 
CodePro-64  was  developed  by  a  team  of  two 
professionals  with  over  25  years  of  software 
development  experience. 

CodePro-64  is  a  professional  quality  edu- 
cational program  for  the  serious  student  of 
personal  computing.  And  it's  fully  guaran- 
teed. Order  yours  today. 

HOW  TO  ORDER 

Order  your  copy  of  CodePro-64  today  by 
mail  or  phone.  Send  only  $59.95  plus  $3.(X) 
shipping  and  handling  to: 

SYSTEMS  MANAGEMENT  ASSOCIATES 

3700  Computer  Drive,  Dept.  G-1 
Raleigh,  N.C.  27609 

Available  on  diskette  only.  MasterCard/- 
VISA  accepted.  Forfasterservice  on  credit 
card  orders,  call  toll  ftee  1^800  SMA-RUSH. 
(1.800-762-7874).  Dealer  inquiries  invUed 

Commodotc  64  is  a  trademark  of  Commodore  Business 
-Machines.  Inc. 
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long  and  ID  i$  n  two-character  identification  code.  Be- 
cause of  the  way  the  format  cotiiniaiid  works,  this  should 
be  done  only  lohen  the  disk  is  neiv,  or  when  tlie  files  on 
the  disk  are  no  longer  needed. 

As  you  can  see,  zohe}i  a  disk  is  formatted,  any 
programs  that  were  on  that  disk  are  lost. 

Tl  LIST  And  RUN  Protector 

I  would  like  to  know  if  there  is  a  way  to  put  an 
access  code  on  a  program  for  the  TI-99/4A.  hi  my 
family  I  do  all  the  work  and  everybody  else  does 
all  the  playing;  but  they  cannot  play  if  it  has  a 

code  on  it. 

Aaron  Rawn 
C.  Regcna  replies: 

At  the  beginning  of  your  program  you  could  try  these 
lines: 

100  AS="HELLO" 

110  INPUT  "ENTER  CODE:   " : C* 

120  IF  C*=AS  THEN  200 

130  PRINT  "SORRY,   CODE  NOT  ACCEPTED 


140  STOP 
200  PRINT 


'PROGRAM  CONTINUES. 


When  you  RUN  your  program,  the  computer  first  asks 
you  to  enter  the  code.  If  you  type  in  the  correct  code 
name  the  program  will  contin  ue;  othertvise,  the  program 
will  stop.  We  used  HELLO  for  the  code  name.  Note 
that  anybody  can  just  LIST  the  program  and  get  your 
code  )!anie.  Instead  of  HELLO  between  the  quote  marks 
type  in  your  own  code  word,  but  hold  dow}i  the  CON- 
TROL key  (to  the  left  of  the  space  bar)  while  you  are 
typing.  Now  if  someone  LlSTs  the  program  they  can't 
read  xvhat  your  xoord  is — it's  either  spaces  or  some 
funny-looking  characters. 

VIC  Memory  Requirements 

Say  a  VIC  program  requires  IIK,  and  you  have 
only  a  16K  memory  expansion  cartridge.  Will  the 
program  run  with  the  extra  memory,  or  are  you 
required  to  use  the  exact  memory  needed? 

My  second  question  is  about  word  processing. 
When  typing  with  or  using  a  word  processor,  do 
you  actually  need  a  printer?  All  I'd  really  like  to 
do  is  store  my  information  on  disk. 

Dwain  Young 

When  a  program  or  article  states  requires  UK,  this 
means  it  needs  IIK  bytes  of  memory  or  more.  Both  the 
VIC  and  64  have  pointers  that  manage  BASIC  memory. 
Examples  are  memory  locations  45  and  46,  which  point 
to  the  start  of  BASIC  variables  (the  end  of  the  BASIC 
program  proper),  and  bytes  55  and  56,  which  point  to 
the  highest  address  useii  by  BASIC.  These  pointers 
automatically  manage  the  extra  memory  for  you. 

However,  on  the  VIC  you  have  another  thing  to 
consider — screen  and  color  memory  locations.  In  the 
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unexpanded  VIC,  the  screen,  color,  and  BASIC  memory 
areas  start  at  locations  76S0,  38400,  and  4096,  re- 
spectively. When  you  plug  in  a  3K  expander  (like  the 
Super  Expander  cartridge),  these  locations  do  not 
change.  Hozocver,  lohcn  you  plug  in  one  of  the  larger 
expansion  cartridges  (like  the  8K  or  the  16K),  these 
memory  locations  do  change,  to  40%,  37888,  and  4608, 
respectively. 

This  is  important  with  programs  that  perfomt 
POKEs  or  PEEKs  to  color  or  screen  memory.  Tor  ex- 
ample, a  program  that  POKEs  or  PEEKs  screen  or 
color  memory  and  states  needs  3K  expansion  might 
not  ivork  with  an  8K  expander  because  of  the  relocation 
of  these  memory  blocks. 

On  the  other  hand,  a  program  written  for  the  un- 
expanded VIC  that  contains  no  POKEs  or  PEEKs  to 
screen  or  color  memory  should  run  with  any  memory 
expansio)!.  If  you  LOAD  a  program  and  it  doesn't  run 
properly,  simply  turn  off  your  VIC,  change  memory 
expansion  cartridges,  and  reLOAD  your  program.  This 
will  not  harm  the  BASIC  program,  just  be  sure  you 
SAVE  your  BASIC  programs  before  turnin'^  off  your 
VIC.    '  '       ' 

No,  you  don't  need  a  printer  to  use  that  word 
processor,  if  onscreen  viewing  and  storing  the  text  to 
disk  or  tape  are  all  you  require. 


Extra  Functions  For  SuperBASIC  64 

The  "SuperBASIC  64"  program  (COMPUTEl,  De- 
cember 1983)  is  very  interesting  and  helpful.  One 
of  its  good  features  is  the  clarity  with  which  it  is 
laid  out.  This  makes  it  easy  to  write  and  test 
modifications. 

Two  sample  modifications  are  given  below. 
To  use  them,  simply  LOAD  and  RUN  SuperBASIC 
64,  then  enter  and  RUN  the  modification  as  a  nor- 
mal BASIC  program. 

The  first  program  creates  a  new  function, 
[5CRN.  [SCRN  sets  the  background,  border,  and 
text  colors  in  one  operation.  For  example, 
[SCRN12,11,1  sets  up  a  light  gray  background, 
dark  gray  border,  and  white  letters. 

1  REM  CREATE  [SCRN  FUNCTION 

10  FOR1=0TO9:READA:POKE52168+I,A:NEXT 

20  DATA32, 57, 195, 32, 66, 195, 32, 218, 197, 96 

30  FORJ=0TO5 ; READA: POKE49892+J , A ; NEXT 

40  DATA83,67,82,78,199,203 

The  second  program  modifies  the  [DRAW 
command,  allowing  it  to  either  draw  or  erase  lines. 
In  its  new  version,  [DRAW  must  be  followed  by 
either  1  orO.  [DRAWl,xl,yl,x2,y2  will  draw  a 
line  fromxl,yl  to  x2,y2.  [DRAW0,xl,yl,x2,y2 
will  erase  the  line  between  those  coordinates. 

1  REM  MODIFY  [DRAW  TO  ALLOW  ERASURE 


Take  the 
6-volume  Microcomputing  Library 

when  you  join  the  MsmflLL  COIUPUTBR  BOOK  CLUB 


only  $2.95 


You  simply  agree  to  buy  3  more  books — at  handsome  discounts — within  the  next  1 2  months. 


This  set  of  six  carefully  selected  books — 
an  S86.30  value — will  be  your  basic  refer- 
ence source  for  small  computing, 

1.  BASIC  AND  THE 
PERSONAL  COMPUTER. 

Thomas  A.  Dwyer  and  Margol  Critchfield.  A 
down-to-earth  Introduction  to  programming 
in  BASIC.  Includes:  computer  graphics,  pro- 
gram developmeni.  daia  bases,  and  more.  Also, 
many  slep-by-step  examples  of  word  processing, 
computer  games,  and  computer  simulations. 
Publisher's  Price:  $15.55, 

2.  MICROCOMPUTER  GRAPHICS. 

Roy  li.  Myers.  Provides  the  essential  mathemat- 
ics and  programming  techniques  you  will  need 
for  computer  graphics  applications  in  BASIC, 
and  many  other  topics.  Publisher's  Price: 
$12.45. 

3.  THE  COMPLETE  HANDBOOK 
OF  PERSONAL  COMPUTER 
COMMUNICATIONS: 
Everything  You  Need  to  Go  Online 
with  the  World. 

Alfred  Glossbrenner.  This  digested  collection  of 
detailed  information  on  the  far-flung  aspects  of 
networking  and  data  bases  shows  you  how  to 
gain  access  to  a  universe  of  information  with 
your  small  computer.  Publisher's  Price:  $14.95. 

4.  WRITING  IN  THE  COMPUTER 
AGE:  Word  Processing  Skills  and  Style 
for  Every  Writer. 

Andrew  Fluegelman  and  Jeremy  Joan  Hewes.  A 


manual  for  everything  from  types  of  equipment 
to  the  fine  points  of  formatting  the  finished 
work,  Publisher's  Price:  $10.95. 

5.  CP/MANDTHE 
PERSONAL  COMPUTER. 

Thomas  A.  Dwyer  and  Margot  Critchfield.  A 
crisp,  detailed  tutorial  that  will  easily  turn  the 
average  reader  into  a  skilled  CP/M  user.  Features 
lab  exercises  in  each  chapter  Publisher's  Price: 
S19.95. 

6.  EXECUTIVE  COMPUTING, 

John  M.  Nevison.  25  business  methods  illus- 
trated by  computer  programs,  in  a  step-by-step 
casebook.  You'll  find  details  on  pricing  tech- 
niques . . .  long-range  planning  . . .  corporate  data 
bases... and  much  more.  Publisher's  Price: 
$12,45, 


SMALL  COMPUTER  BOOK  CLUB 
is  a  division  of  the  Library  of  Computer 
and  Information  Sciences,  the  oldest, 
largest  and  most  respected  computer 
book  club  in  the  world.  The  SMALL 
COMPUTER  BOOK  CLUB  will  keep 
you  up-to-date  with  the  latest  develop- 
ments in  software,  improvements  in 
hardware,  programming  languages,  and 
much  more— all  at  handsome  discounts. 

So  start  enjoying  the  club's  benefits 

today. 


4  Good  Reasons  to  Join 

1.  The  Finest  Books.  Of  the  hundreds  of 
books  submitted  to  us  each  year,  only  the  very 
finest  are  selected  and  offered.  Moreover,  our 
books  are  always  of  equal  quality  to  pub- 
lishers" editions,  ««ver  economy  editions, 

2.  Big  Savings,  In  addition  to  getting  the 
Microcomputing  Library  for  $2.95  when  you 
join,  you  keep  saving  substantially— up  to  30% 
and  occasionally  even  more,  (R)r  example, 
your  total  savings  as  a  trial  member— includ- 
mg  this  introductory  offer— can  easily  be  over 
50%.  That's  like  getting  every  other  book  free!) 

3.  Bonus  Books.  Also,  you  will  immediately 
become  eligible  to  participate  in  our  Bonus 
Book  Plan,  with  savings  up  to  70%  off  the 
publishers'  prices. 

4.  Convenient  Service.  At  3-4  week  intervals 
(16  times  per  year)  you  will  receive  the  Book 
Club  News,  describing  the  Main  Selection  and 
Alternate  Selections,  together  with  a  dated 
reply  card.  Ifyou  want  the  Main  Selection,  do 
nothing  and  it  will  be  sent  to  you  automati- 
cally. If  you  prefer  another  selection,  or  no 
book  at  all,  simply  indicate  your  choice  on  the 
card,  and  return  it  by  the  date  specified.  You 
will  have  at  least  10  days  to  decide.  If,  because 
of  late  mail  delivery  of  the  News,  you  should 
receive  a  book  you  do  not  want,  we  guarantee 
return  postage. 

Ifthe  reply  card  has  been  removed,  please  write  to 
the  Small  Computer  Book  Club,  Oepl,Y-AH7.  Riv- 
erside, N,J,  08075  to  obtain  membership  infor- 
mation and  an  application. 

Compute  4/84 


L\;co  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  us 


In  PA  171  7    3271834 


FOR  ATARI 
COMPUTERS 


AT88S1  ... 
AT88S2  ... 
AT**S1  PD . . 
RFD40S1.. 
RFD40S2.. 
RFD44S1.. 


$299.00 

$535.00 
.3439.00 
$399.00 
S675.00 
$449.00 


AT88  doubler 


HARD  DISK 
DRIVES  for 

APPLE     IBM-PC 

5MEG $1349.00 

10MEG  ...$1599.00 
15MEG  ...$1999.00 
20MEG  ...S2359.00 

Adil  i  HI  '«'  l"l   IRS  fill  [1.    ■IS 

TEXAS 
INSTRUMENT 

Disk  Drive. . .  $245.00 


TRAK  DISK  DRIVES 

AT-D1 S379.00 

AT-D2 $399.00 

PRtNTEB  CABLE  S22.9S 

Software  (or  ATD-2  .    ..S22.95 


RANA 
DISK  DRIVE 


COMPUTER  CARE 

BIB 

5'U  DISK  DRIVE 

CLEANER S12.7S 

COMPUTER  CARE 

KIT S19.75 


:appkz 


RANA 
DISK  DRIVES 

Elite  1 S295.00 

EIHb2 $449.00 

EIHe3 S559.00 


MICRO-SCI 


SSI 

Battle  ot  Stiilo  S26.75 

Tigers  in  ttie  Snow. . . .  S26.75 

Cosmic  Balance $26.75 

Knights  of  the  Deserl .  S26.75 
Battle  tor  Normandy  . .  S26.75 
Germany  1985 $36.75 


A2  .. 

A40. 
A70, 


.call 
call 
.call 


MUSE 
Castle  Wolfenstein  ....  $20.75 

Caverns  o(  Frielag $20.75 

Robot  War $26.75 


CONTINENTAL 

Home  Accountant 

Book  of  Apple  Software 
BRODERBUNO 

Bartk  Street  Writer 

AE 

LODE  RUNNER  D     

Ctioplifler      

David's  Midnight 

SPINNAKER 

Kindercomp 

Storv  Machine 

FaceMaker 

Snooper  Trooper _  . . 

Delta  Drawing , . 


$51,75 
$16.75 

$49.75 
$24.75 

524.75 
$24.75 
$24.75 

$21.75 

$23.75 
$23,75 
$29.75 
$34.75 


BLANK  DISKETTES 
ELEPHANT 

SInsle  Side  SD(10) $17.75 

Single  Sid*  DO  |10) S21.75 

Double  Side  OD  (10) S2e.75 

MAXELL 

MDI(IO) ta8.75 

MDIIdOl §38.75 

CERTRON  CASSETTES 

CO- 10  12  for I1S.9S 

CC-20  12  for $17.98 

INNOVATIVE  CONCEPTS 

DItk  Storao*  Iholdt  10) $4.95 

DIak  Storage  (holdi  IS) $9.95 

Dlak  Storage  (hold!  50) 126.95 

EPYX 

Temple  of  Apshai $26.95 

Star  Warrior $26.95 

Crush.  Crumble  &  Chomp  .  $22.75 

ADVENTURE 

Sagaal:  Adventureland  ..  .$29,95 
Sagas2  Pirate  Adventure. $29. 95 
Sa9a«3  Secret  Mission  .  $29.95 
Stone  of  Sisyphus  ....         $24  95 

ALIEN  GROUP 

Alan  Voice  Boi $99.00 

Apple  Voice  Boi $129.00 

SPINNAKER  64 

Kindercomp $21. 75 

Story  Machine $23.75 

Face  Maker $23.75 

Snooper  Tfooper $29.75 

Delta  Drawing $34.  75 

Sham  us  It  c/d $24.95 

Ptnhead  c/d   $22.95 

QUICK  SHOWN  FOX 

OBF  Word  Processor $49.95 

LJK 

Letler  Perfect $105,00 

Data  Perfect $95.00 

ADVENTURE  INTERNATIONAL 
S.  Adams  Adventure. ,       $28.75 
VIC-64 

Household  Finance  C/D  .    524,75 

VIC  20 

King  Arthurs  Heir  Cass        $24  75 
^Mnnsre^M^^Rorj^^^^^S24^^ 

EASTERN  HOUSE 

Monkey  Wrench  2 $52.75 

BRODEHBUND 

LOOE  RUNNER  D $24.75 

OPERATION 

WIRLWINDD $29,75 

MOLD $24.75 

PARKER  flflOTHERS 

Tutankham  R $33.7  5 

Super  Cobra  fl $33.75 

Astro  Chase  H $33.75 

Frogger  R $33.75 

QBert  R   $33.75 

Popoye  R $33.75 

Risk  R $42,75 

Chess  R $42.75 

SPINNAKER 

Story  Machine  R $26.75 

Face  Maker  R $24,75 

Kinderomp  R $20.75 

Fraction  Fever  R $24.75 

Delta  Drawing  R $26,75 


Qz  commodore 


1212  Programmers  Ad  $44.75 

1213  Vicmon $44,75 

Vic  20  dusi  cover $6,99 

Vic  64  dusI  cover $6,99 

TIMEWORKS 

INVENTORr t9«.TS 

ACCOUNTS  REC •59.73 

ACCOUNTS  PAY »5e.75 

GENERAL  LEDOER (99.73 

PAYROLL »S9,75 

CASH  FLOW §39.75 

SALES  ANALYSIS $39.73 

ELEC-  CHECKBOOK §59.73 

MONEY  MANAGER §59.73 

DATA  MANAGER §39.75 

WALL  STREET §38.73 


HES  64 

Sound  Box $9.95 

64Fonh $55.75 

Hesmon $25.75 

Turtle  Graphics $37.75 

HBSwriter  .,,. $2B.7S 

Ghdrunnef $19.75 

Attack  of  MC  S22.7S 

Turtle  Trainer ...822.75 

Turtle  Tutor $22.75 

Paint  Brush S22.75 

Bonli $25.75 

Home  Manager $28.75 

Time  Money  Mgr $44.97 

OmniCalc $33.75 

SworO  Point $19,95 

Hes  Modem S52-75 


A 

ATARI 

Comptilcrs  For  people. 

o 


CARDCO 

Cardpnnter  /  LQ1 , , $499,00 

Cardprint  DM1 $109  00 

5  Slot  Expansion  64 $54,00 

64  Write  NOW $39.00 

64  Mail  NOW $29.00 

2  J  Write  NOW $29.00 

64  Keypad  $29.00 

Universal  Cass.  Int $29  75 

Printer  Utility , $19.75 

6  Slot  Expansion $79,95 

3  Slot  Expansion $24  95 

PRINTER  INTERFACE S39.75 

PRINTER  INTERFACE  witti 

full  graphics $65.75 

LIGHT  PEN $29'75 

PARKER  20 
Frogger  (ROM)  .    $33  75 

0Ber1{ROM)         $33-75 

Tutankham  Iroml $33.75 


SYMAPSE 

BLUE  MAX  C/D $24.75 

Ft.  APOCALYPSEC/D...  $24.75 
PHAROAH-S  CURSE  C/D-  .$24.75 

FIRST  STAR 

ASTRO  CHASE  C/0. . .  .$22.75 
BRISTOLS  C/D $22.75 


FLIP  FLOP  C/0  . 


ALIEN  GROUP 

Voice  Bo»  2     $99.75 

DON'T  ASK 
Sam S41 .75 

Abuse $15.95 

Teleatri $27.95 

PoKer  Sam  .524.95 

APX 


600XL  . . .  SCALL 

800XL for 

1 400XL. . .  Lowest 
1450 Prices 

1020  PRINTER NOW 

1025  PRINTER IN 

1027  PRINTER STOCK 

1050  DISK  DRIVE  ....SSAVe$ 
1010  RECORDER $74.75 


..$22.75 

3R  Math $19.95 

Typo  Attack $24.95 

Family  Budget Sig.95 

F   Cash  Flow Sig.95 

BRODERBUND 

Bank  Street  Writer  D $49.75 

AE  D S24.75 

Apple  Panic  D $23,75 

Choplifler  ROM S32.75 

David's  Midnight $24.75 

Stellar  Shuttle  C/D $1B.75 

Ft.  Apocalypse S24.75 


EPYX 
GATEWAY  TO 

ASPHI  R $26,75 

JUMPMAN  JRR $28.75 

PITSTOPR $23.75 

GATEWAY  TO 

SSI 

Battle  o(  SJirlo  C/D $26.75 

Tigers  in  the  Snow  C/D  . . .  .$26.75 
Battle  for  Normandy  C/D  .,$26.75 
Knights  of  the  Deson  C/0  .  $26.75 
Cosmic  Balance  C/D  $26,75 

ON-LINE 

•^"■ogaer $24,95 

Wizard  &  Prin  $26.95 

ROKLAN 

Wizard  of  War $29,75 

Gorf $29.75 

Del  UK  Invader $27.95 

eiG  5 

Miner  2049 $32.75 


Ls;co  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  us 


In  PA  1   717-327-1824 


PRINTER  PRINTER  PAPER 

INTERFACING  AVAILABLE 

I  Availabis  )or  IBM  PC,  Apple,  Atari.  Vic  20  &  Vic  &4 


SAVE  =  PR  INTERS 


EPSON 


OKI  DATA 


LETTER  QUALITY 

SMITH  C0R0NATP2. . .  »449,00 

DIABLO  630  .,$1719.00 

ALPAHCOM42  S89.00 

ALPHACOMSI SI  29.00 

NEC  8023 S369.0O 

NEC  B025 $699.00 

NEC  PC-B200 
COMPUTER SCALL 


RX-eO  SSAVES 

RX-eOFT ON 

FX-80 Jn-Stock 

FX-100 EPSON 

MX-aOFT PRINTERS 

MX-1 00 SSC  ALLSS 

MANNESMANN 
TALLY 

SPIRIT  80  SCALL 

MT  laOL SCALL 


80 SSAVES 

82  A CALLlQf 

B3A LOWEST 

34  PRICES 

92  on  these 

93 In-Stack 

PACEMARK  2350. . .  PRINTERS 

ATARI  850 

REPLACEMENTS 

IN-STOCK 


CITOH 

GORILLA  GX100 SI  79.0O 

PROWR1TER8510  .,.S339.00 

PROWBITERII S659.00 

8600  S1025.0O 

STARWRITER S1 099.00 

PRINTMASTER  S1499.00 

STAR  MICRONTICS 

GEMINI  10X .,,S269.00 

GEMINI  15X SCALL 

DELTA10 _ 5479,00 


MODEMS 


ANCHOR  MARK  I 
ANCHOR  MARK  I 
HAYES  SMART  , 
HAYES  MICRO  II 
Micro  Bit 

lMPP-1000 

NOVATION 

CAT  -  -  - 

D-CAl 

J-CAT 

APPLE  CAT  II  .... 
212  APPLE  CAT 


S79.00 

I.    S79.00 

.5239.00 

S309.00 

SI  29.75 

SI  44,00 
S155.00 
S1 15.00 
S279.00 
S589.00 


CORDLESS 
TELEPHONES 
from...  $69. 75 


MONITORS 

Sakala  Color S229.00 

Amdek  Color  I S275.0O 

Amdek  300  Green SI 49.00 

Amdek  300  Amber  .,.,    SI  49.00 
Gorilla  Green   $99. OO 


DUST  COVERS 

BOO S3. 99 

4O0 S3, 99 

1200 S3. 99 

410 S3.99 

BIO .S3, 99 

1050 SS.99 

PROWRITER  $S.99 

GEMINI  10X SS,99 

PERCOM  DISK S5.99 

VIC  20/64 S5.99 


dppkz 


APPIF  ilUMPIlNr.  OX  S99  ?'i 

APPLE  tXIMPUNCj  64      [16  BuWertSI  79  75 

INFOCOM 

Zork  I.  II.  or  III S26.7S 

Dearlline  - S33.75 


"^^    '"  HES  Writer...  S25.7S 

HESMON  Rom  .  S25.75       Shamua S25.75 

Turtle  Graphics.  S25.75       P'O'ec"" S25.75 


PEFQOM 


AT88S1   ..$299.00 
RDF44SI  $449.00 


VIC  64/20 

PACMAN S33.75 

DONKEY  KONG S33-7S 

DIG  DUG S33.75 

r^EFENDER S33.7S 

CENTIPEDE  $33.75 

FIRST  STAR  64 

BHISTOLS  C/D S22.T5 

FLIPFLOPC/D  S22.7S 


SYNAPSE  64 


ZEPPELIN  C/D  $24.75 

BLUE  MAX  C/D S24.75 

DIMENSION  X  C/D  ....S24,75 

EPYX  64 

ASPHI  R S28.75 

JUMPMAN  JR  R $28.75 

PITSTOPR S2a.75 


commodore  ^^l 


BRODERBltND  G4 
BANK  STREET 

WRITER S49.75 

CHOPLIFTER $24.75 

LODE  RUNNER S24.75 

OROL S24.75 

KOALA TOUCHTAB LET.,  .$69.75 


GEMINI  10 $269.00 


IBM 

PACMAN S27.9S 

DONKEY  KONG $27.95 

DIG  DUG S27.95 

DEFENDER S27.fl5 

CENTIPEDE S27.95 

[  KOALA  TOUCH  TABLET...  S99./5 

DEADLINE       S34.75 

ENCHANTER   S34.75 

INFIDEL  S34.75 

PUANETFALL S34.7S 

STAR  CROSS  S34-.75 

SUSPENDED S34.75 

WITNESS        $34.75 

ZORKI  S34,75 

ZORK  II  $34.75 

ZORKIII       S34.75 


ATARI 

$29.75 

$29.75 

$29,75 

$29,75 

$29,75 

KOA  LA  TOOCMT/IB  LET... $69.75 

$34.75 

S34.7S 

$34. T5 

$34.75 

...$34.75 

$34,75 

$34.75 

$34.75 

$34,75 

$34.75 


APPLE 

PACMAN S27.9S 

DONKEY  KONG $27.95 

DIG  DUG $27.95 

DEFENDER S27.95 

CENTIPEDE $27.95 


KOALA TOUCHTAB LET.  ..$84.75 

S34.75 

S34.75 

534.75 

,,.$34.75 

.,,,. S34.7S 

S34.75 

S34.75 

S34.75 

$34.75 

S34.7S 


48K  RAM  ....$75.00 
64K  RAM  ...,$99.00 

ATARI  WRITER  $79.00 

BUSINESS 

Vl»lc«le $159.75 

Lattar  Perfect tS9.T5 

Latter  Perfect t89.75 

Data  Perfect,..., fas.TS 

TEXTWIZZAftO S34.75 

SPELL  WIZZARD $34.75 

File  Manager $69.75 

Home  File  Mgr (gg  75 

Bookeeper S119'75 

C.R.I.S 


$199.75 


QQ        TO  ORDER 

CALL  TOLL  FREE  or  send  order  to 

800-233-8760        ^'oMZZT 

I  Customer  Service  1-717-327*1825  Jersey  Shore    PA  17  74C 


POL(CY 

In-stock  items  shipped  wilhm  24  hours  ot  order  Personal 
checks  require  four  weeks  clearance  before  shipping.  No 
deposit  on  C.Q^  D.  orders.  Free  shipping  on  prepaicf  C3sh  orders 
within  the  continental  U.S  PA  residents  add  sales  tax.  All 
products  subject  to  availability  and  price  change.  Advertised 
prices  show  4°^  discount  offered  for  cash,  aidd  4'^i:  for  Master 
Card  or  Visa.  DEALER  INQUIRIES  INVITED 


10  FORI =0TO32;READA: POKES 21 28+1, A: NEXT 

20  DATA32, 0,192, 165, 20, 141, 174, 203, 32 

30  DATA0, 192, 76, 101, 199, 0,32, 14, 198,  174 

40  DATAl 74, 203, 240, 3, 76, 132, 200, 7 3,  255 

50  DATA49,251,76,134,200 

60  J=51042:K=5I329 

70  POKEJ , 76 ; POKEJ+1 ,160: POKEJ+2  ,  203 

80  POKEK, 7e!P0KEK+l, 175 : POKEK+2 , 203 

Charles  Tyson 

Atari  Mystery  Commands 

I  frequently  sec  statements  in  programs  that  just 
don't  seem  to  make  sense.  For  example,  in  "Dia- 
mond Drop,"  Atari  version  (COMPUTE!,  September 
1983),  lines  5430  and  5750  have  the  statement 
Q  =  lAl.  As  I  understand  it,  that  means  1  raised  to 
the  first  power,  which  is  1  times  1,  which  is  just  1. 
So  why  write  it  this  other  way?  Also,  if  you  remove 
it,  and  just  change  the  statements  to  Q  =  1,  then 
the  diamonds  drop  faster,  but  why? 

Also,  in  some  programs  there  will  be  a  loop 
FOR  X  =  0  TO  1  STEP  0.  What  is  the  meaning  of 
this?  If  you  start  at  zero  with  a  STEP  of  0,  what 
happens? 

Roy  R.  Valantine 

The  Atari  takes  a  significant  amount  of  time  to  calculate 
poiversaiid  roofs.  Matt  Cizcer,  the  author  of  "Diamond 
Drop,"  took  advantage  of  this  and  used  Q  =  1A1  in 
place  of  a  delay  loop  to  slozo  down  the  game.  This  state- 
ment takes  up  less  memory  than  an  empty  FOR-NEXT 
loop.  To  ansioer  your  second  question,  remember  that 
the  STEP  value  is  added  to  the  orig!)ial  value  in  a  FOR- 
NEXT  loop  at  every  NEXT.  With  a  STEP  of  zero,  X 
will  never  become  equal  to  one.  This  is  just  a  faster  way 
of  writing  an  endless  loop.  Instead  of: 

10  PRINT  1:1  =  SQR(I) 
20  GOTO  10 

i/ou  can  use: 

SFORX=0TOlSTEP0 
10  PRINT  III  =  SQR(I) 
20  NEXT  X 

Execution  will  continue  until  you  press  BREAK  or 
SYSTEM  RESET. 

64  SID  Register  Images 

In  the  64  memory  map  there  is  a  sizable  chunk  of 
memory  labeled '"SID  Images"  (SD500-$D7FF). 
Presumably  the  audio  synthesizer  needs  this 
memory  to  function,  but  no  explanation  is  offered 
by  any  manual.  Could  this  memory  be  used  to 
further  manipulate  SID  or  is  it  strictly  hands-off? 

Rob  House 

m     COMPUTE!     April  1984 


The  64  uses  a  method  known  as  memory-mapped 

I/O  to  let  you  access  a  hardware  chip's  registers  with 
PEEK  and  POKE  (or  load  and  store  in  machine  lan- 
guage). This  is  convenient  and  fast,  but  some  portion  of 
your  computer's  memory  must  he  dedicated  to  the  chip. 
No  actual  memory  (RAM  or  ROM)  is  used  or  needed, 
but  the  memory  addresses  are  set  aside  for  the  chip's  use 
only.  The  SID  chip  has  only  26  registers,  but  to  make 
interfacing  easy.  Commodore  allocated  it  IK  of  address 
space.  It's  a  quirk  of  the  interface  chips  which  causes 
"reflections"  of  the  SID  chip's  actual  registers  to  appear 
from  $D500-$D7FF.  You  can  read  or  change  these 
locations,  and  tHey  will  be  redirected  to  the  SID  chip. 
This  is  not  recommended  simply  because  it  is  non- 
standard— no  one  else,  perhaps  even  you  at  a  later  date, 
will  be  able  to  figure  out  why  you  are  POKEing  to  these 
image  locations.  Also,  there  is  RAM  beneath  the  ROMs 
and  hardware  chips,  so  you  can  switch  out  the  SID  chip 
to  make  full  use  of  the  underlying  IK  of  RAM  if  you 
want. 


Machine  Language  To  BASIC? 

I  would  like  to  know  if  there  is  a  program  to  trans- 
late a  machine  language  program  into  BASIC.  I 
realize  that  this  sounds  a  bit  impractical,  but  I 
think  it  would  be  a  tremendous  aid  to  us  BASIC 
programmers  who  are  trying  to  learn  machine 
language. 

It  seems  to  me  that  if  a  BASIC  Interpreter  can 
translate  BASIC  instructions  into  machine  lan- 
guage, that  the  opposite  is  equally  possible.  If  it 
cannot  be  done,  please  explain  why. 

D.  W.  Bruce 

The  BASIC  Interpreter  doesn't  actually  translate  BASIC 
into  machine  la)iguagc.  All  the  operations  that  can  be 
performed  from  BASIC  are  permanently  stored  as 
machine  language  routines  in  Read  Only  Memory 
(ROM).  The  Interpreter  first  conz>erts  each  BASIC 
keyword  into  a  one-byte  number  called  a  token.  Then, 
depending  on  the  value  of  the  token,  certain  of  the  per- 
manent machine  language  routines  are  executed  in  a 
predetermined  order. 

It  is  not  possible  to  automatically  translate  machine 
language  programs  into  BASIC  equivalents.  You  could 
look  at  a  machine  language  program  and  design  a  BASIC 
version  of  the  same  thing,  but  BASIC  runs  so  much 
slower  that  it  would  serve  no  purpose  other  than  being 
the  educational  exercise  you  mention. 


Listing  The  1541  Directory 

I  own  a  Commodore  64  and  a  1541  disk  drive, 
and  I  have  a  question:  How  do  I  go  about  listing 
the  directory  of  a  disk? 

Danny  Chu 

After  making  sure  that  your  computer  and  disk  drive 
are  on,  and  no  BASIC  programs  arc  in  memory,  insert 


Chart  Your  Progress 


Specials  Of  The  Mowth 

Atari  600XL S189 

Atari  800XL $299 

Atari  1030  Modem $115 

Rana  1000  Disk  Drive $339 

1027  Letter  QuaUty  Printer $299 

Commodore  SX64  Portable  Computer  $959 

Commodore  Automodem $  95 

Commodore  Graphics  Printer $269 

Verbatim  Twin  Pak  $  5.25 

Elephant  Disks  S/S $19.50l 


Business 


Hardware 
Specials 


Printers 

Leading  Edge  Coriila  . . . 

.SI  89 

NEC  8023A 

.S459 

Okidatj  MI.  82A 

.  Call 

OkidaUMLSJA 

.  Call 

OkidauM1.84P  

.  Call 

Okidmta  ML  92P 

.  Call 

C.  ITOH  8510  Prowriter 

S399 

C,  ITOH8SI0SP 

.S665 

Manncsmann  Tally  160L 

S629 

Gemini  lOX 

.S315 

Mannesraann  Tally 

Spirit  

.S34S 

Alphicom  81 

.SI  89 

Monttors 

Leading  Edge  Green 
Hi-Res  12" 

-S  89 

US!  Amber 

.S169 

NEC  Green  Screen 

.SI69 

Leading  Edge  Amb«r 
Hi-Res  12" 

.5  89 

.S315 

Amdek  Color  1+ 

Recreation 


Q  Bert/CRT  S  35 

Frofger/CRT S  35 

Popeye/CRT S  35 

Deadline S  35 

Zork  I,  II,  111  ea S  27 

Witness S  35 

Planetfall S  35 

Enchanter S  35 

Infidel S  35 

Temple  of  Apshai S  27 

Pitstop S  27 

Starleague  Baseball S  23 

Starleague  Football S  23 

Blue  Max S  23 

Joust $  43 

Robotron2084  . $33 

Pole  Position S  36 

Ms.  Pac  Man S  36 

B-I  Nuclear  Bomber  (C)      S  12 
Midway  Campaign  (C) . , .  S  12 

Nuke»nr{C) S  12 

Telengard(C) S  16 

Jumpman  Jr./CRT S  27 

Pitstop/CRT S  27 

Flight  Simulator  11/ D S  39 

Night  Mission  Pinball S  20 

Sammy  Light  Foot  (CRT)  S  20 
Apple  Cider  Spider 5  23 


Education 

Atari 

Harcoun  Brace  SAT/D  . . 

.S59 

Chaterbee/D 

,$29 

Match  Wits/D 

.$22 

Early  Games/D 

.$22 

Early  Games  Music/D  . . . 

.$22 

Spellicopter 

.$29 

Creature  Creator  

.$29 

Math  Maze 

.$29 

Alien  Addition/ D 

.S25 

Meteor  Multiplication .... 

.S25 

Compu-Re»d/D 

.$22 

Compu-Math/Fractions  . . 

.S29 

Compu-Malh/Dedmals  . . 

.$29 

Spelling  Bee  Games 

.$29 

Speed  Read  +/D 

.$45 

Spider  Eater/ Koala 

.$22 

Bumble  Bee/ Learning  Co. 

$29 

Snooper  Troops  I,  2  ea . . , 

.$32 

Face  Maker/CRT 

.$25 

Kids  on  Keys/CRT 

.$25 

Alphabet  Zoo/CRT 

.$25 

Kid  Writer/CRT 

.$25 

Delta  Drawing/CRT  .... 

.$29 

Commodore 

CBS  Addition/Subt 

.$17 

CBS  Multiplication/ 

Division 

.$17 

Speed  Reader  11/ D 

.$49 

Word  Attack/D   

.536 

Mathblasler/D  

.S3« 

Sptllakaian/D   

.$29 

Crypto  Cube/D 

.$29 

Master  Type/ D-CRT  .... 

.S29 

Song»»riter/D  

.$29 

Alphabet  Zoo/CRT 

.$22 

Fraction  Fever/CRT 

.$22 

Delta  Drawing/CRT 

.$22 

Pacemaker/ CRT 

.$25 

Trains/D 

.$29 

KIdwriter/CRT 

.$25 

Dungeons  of  Algebra 

Dragons 

.SI7 

Juggles  Rainbow 

.$22 

Bumble  Bee 

.$29 

Early  Games  Piece  of  Cak 

'  $22 

Early  Games  Match  Maker  S22  1 

Atari 

AUriwriter $  79 

Vlsicak $179 

Financiil  Wizard  $45 

Letter  Perfect  $  69 

Data  Perfect $  79 

Spell  Perfect $  65 

Spell  Wizard $  45 

Text/Spell  Wlard 

Combo $  65 

Bank  Street  Writer $  49 

Bank  Street  Speller $  49 

Homeword S  49 

SynFile+  $  65 

Syn  Tcit  $  23 

Syn  Mail $34 

Home  Accountant  $  48 

Tax  Advantage S  39 

Complete  Personal 

Accountant $  65 

Atspelter S  33 

Diskette  Mailing  List $  21 

Miles  Payroll  System $119 

Atari  Accounting $169 

Family  Finance $  36 

File  Manager  800^ $  65 

Commodore 

Easy  Script  64/D $  35 

Easy  Spell  64/D S  16 

Easy  Finance  I,  II  ea./D       $  16 

Accts.  Rcceivablc/D $  35 

Payroll/ Check writing/D      $  35 

Assembler  64/D $  IS 

Logo/D $49 

Simon's  Basic/CRT $  17 

Bank  Street  Writer/D  ....  $  49 

Home  Accountant/D S  48 

Tax  Advantage $  45 

FCM S  35 

Paper  Clip  Word 

Procesor S  89 

Delphrs  Oracle $  89 

Practicalc  64 $  40 

Calc  Result/ Easy-CRT. . . .  S  59 
Calc  Result/Advanced-D     $109 

Multiplan/D $65 

General  Ledger/ D  $  59 

Date  Manager/D S  17 

Electronic  Checkbook  S  17 

Swiftax/D  $35 

Quick  Brown  Fox/D $  59 

Quick  Brown  Fox/ CRT. . .  $  56 


Prices  reflect  cash 
discount  only  and  are 
subject  to  change. 


COMPUTER  OUTLET 

1095  East  Twain,  Las  Vegas,  NV  89109  •  Mon.-Frl.  8  a.m.  to  6  p.m..  Sat.  9  a.m.  to  5  p.m. 

1-800-634-6766 

Information  and  Inquiries  702/796-0296  •  Order  Status  702/369-5523 

SHIPPING:  For  fast  delivery,  cdishier  checks,  money  orders  or  cKrect  bank  wires  Personal  and  company  checks, 
allow  3  weeks  to  clear  C  O  D  charges.  53  mrnjmum  or  1%  on  orders  over  5300  Nevada  residents  add  5V«% 
sales  tax   Shipping  charges  based  on  weight   S3  minimum  APO  and  FPO  orders:  SIO  minimum  and  15%  on  all 
orders  over  SIOO.  SchooJ  and  business  purchase  orders  welcome.  All  returns  must  be  accompanied  by  return 
authorisation  numt5er  Call  702/369-5523  before  returning  goods  for  replacement. 


your  disk  into  the  drive,  and  type  LOAD  "$",8  and 
press  RETURN.  The  disk  drive  will  whir  and  spin  a  bit. 
After  the  drive  has  stopped  and  the  READY  with  the 
blinking  cursor  is  displayed  on  the  screen,  type  LIST 
ami  press  RETURN.  The  directory  will  be  displayed  on 
the  screen.  To  sloiv  down  the  iisthtg,  press  CTRL  on 
the  keyboard. 

However,  there  is  one  tiling  to  watch  out  for.  List- 
ing the  directory  using  this  method  puts  it  in  the  BASIC 
programming  area,  so  any  BASIC  program  in  memory 
will  be  overwritten.  Also,  when  you're  through  looking 
at  the  directory,  enter  NEW  to  clear  the  BASIC  memory 
pointers  before  loading  a  BASIC  program. 

If  you  are  searching  through  several  disks  for  a 
particular  filename,  you  can  have  the  LOAD  command 
display  only  that  filename.  Let's  say  you're  looking  for 
a  game  called  "Space  Game."  Here's  the  format: 

LOAD  "SO:SPACE  GAME",8 

Type  LIST,  and  if  the  filename  is  found  it  loill  be  dis- 
played on  the  screen.  If  the  filename  is  not  on  that  disk, 
only  the  disk  header  (name  of  the  disk)  will  be  displayed. 
If  you  forget  how  you  spelled  the  name  of  the  file  you 
want,  use  the  wildcard  feature,  represented  by  an  as- 
terisk. For  example,  if  you  enter  LOAD  "$0:SPACE* 
" ,8  it  will  display  all  filenames  start iw^  with  the  letters 
SPACE  such  as  SPACE  GAME,  SPACEMAN,  etc.  If 
you  enter  LOAD  "$0:S*",8  you'll  get  all  the  filenames 
starting  with  an  S. 


PEEKing  The  VIC  SHIFT  Keys 

I  own  a  VIC  and  would  like  to  know  the  PEEK 
command  for  the  right  SHIFT  key.  I  know  the  left 
SHIFT  key  is  PEEK(145).  I  realize  PEEK(653)  could 
be  used,  but  I  only  want  to  know  when  the  rij^ht 
SHIFT  kev  is  pressed,  not  the  left.  Also,  what  is 
the  PEEK  command  for  the  RESTORE  key? 

Chris  Stroud 

The  following  information,  excerpted  from  the  upcoming 
COMPUTE!  book  Mapping  the  VIC-20  by  G.  Russ  ' 
Davies,  should  be  of  help. 

"Each  time  the  jiffij  clock  TIME  is  updated  by  the 
Kernal,  the  contents  of  VIA2PA2  (VIA2—Port  A)  arc 
copied  to  location  145. 

"Every  other  key  on  the  bottom  roir  of  the  keyboard 
may  be  tested  for  in  this  location,  without  using  a  GET 
command  in  BASIC. 

"Here's  an  explanation  of  the  different  'values 
you'll  find  in  this  location: 

PEEK   Hex  Number 

255        ($FF)  =  no  key  pressed 

254        (SFE)  =  STOP  key  pressed;  STOP  routine  will  find  and 
acton 

253         ($FD)  =  left  SHIFT  key  pressed.  This  may  be  the  most 
useful  returned  value,  especially  for  game 
programmers.  It  allows  the  program  to  dis- 
tinguish between  the  left  and  right  SHIFT  keys 
bv  checking  location  653,  then  location  145,  bit 
1 'for  left/not  left. 
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251  (SFB)  =  X  kev  pressed 

247  ($F7)  =  V  kev  pressed 

239  (SEP)  =  N  ke'y  pressed 

223  ($DF)  =  comma  key  pressed 

191  ($BF)  =  slash  key  pressed 

127  ($7F)=  cursor-down/irp  key  pressed 

"You  can  examine  the  values  in  this  location  when 
the  bottom  row  keys  are  pressed  by  entering  and  running 
this  short  program:" 

10  ?FEEK(145):GOTO  10 

In  other  words,  if  location  653  says  SHIFT  is  down, 
but  location  145  doesn't,  then  the  right  SHIFT  key  is 
down.  Otherwise,  the  left  SHIFT  key  is  down  (or  both 
left  and  right  SHIFT  keys  together). 

The  RESTORE  key  is  not  a  normal  keyboard  key. 
It  is  rwt  xuired  through  the  VIA,  but  directly  to  the 
6502's  NMI  line.  When  RESTORE  is  pressed,  a  Non- 
Mnskable  Interrupt  is  generated,  which  makes  the  6502 
jump  to  a  special  NMI  routine.  This  routine  checks  to 
see  if  the  RUN/STOP  key  is  being  held  down,  and  if  so, 
executes  the  soft  reset  normally  performed  by  RUN/ 
STOP— RESTORE.  If  RUNfSTOP  is  not  held  doion, 
the  interrupt  will  occur  when  you  press  RESTORE, 
but  nothing  will  seem  to  happen.  It's  not  easy  to  trap 
and  re-vector  the  RESTORE  key,  but  the  vector  for  the 
routine  we've  mentioned  is  at  792  and  793. 


The  Atari  Speaker 

I  would  like  to  know  if  it  is  possible  to  easily  turn 
the  Atari  internal  speaker  off  and  on,  without 
opening  the  computer  case. 

Paul  Stach 

On  the  XL  series,  you  can  toggle  the  speaker  off  and  an 
by  holding  down  the  Control  key  and  presshig  the  F3 
key.  There  is  no  easy  way  to  turn  off  the  internal  speaker 
on  the  4O0  or  800.  ' 


Screen  POKEs  On  The  64 

I  recently  bought  a  second  Commodore  64  and 
found  that  if  you  try  to  POKE  a  character  to  the 
screen,  it  won't  appear.  For  example,  POKE  1024,1 
should  put  the  letter  A  in  the  first  position  of  the 
screen,  but  it  doesn't.  I  took  the  new  64  back  and 
got  another  one,  but  it  had  the  same  bug.  My  old 
64  from  December  1982  works  OK.  Has  Commodore 
changed  the  design  of  the  new  units?  If  so,  why 
not  put  an  addendum  in  the  user's  manual?  In 
the  meantime,  I've  returned  both  defective  64s. 
Can  you  elaborate  on  these  differences  in  the  64s? 

Neil  Hoover 

Commodore  has  made  design  changes  since  the  very 

first  versions  of  the  64,  but  by  no  means  is  this  a  bug. 
In  the  early  versions  of  the  64,  color  memory  was 
automatically  filled  -with  Ts — the  value  for  the  color 
white.  You  could  then  POKE  characters  to  the  screen 
without  worrying  about  the  color. 


commodore 
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Business 

Multiplan S  89.00 

WordPro  3  -r  64  w.SpellRight  Plus  . .   S  79.00 

SpellRight  Plus S  55.00 

Calc  Result  (Advanced) S  125.00 

Calc  Result  (Easy) S  75.00 

Mirage  Concepts  (data  base)  S  95.00 

Mirage  Concepts  (40  &  30  dm  W.P)  . .  S  95.00 

Home  Accountant  (Continental) S  69.00 

Tax  Advantage  (Continental) S  49.00 

■nieLastOne54 

(writes  basic  programs) S  89.00 

Check  Book  Helper S  34.95 

Easy  Finance S  22.00 

Info  Designs  Accounting  G'L,  AR. 

A'PP  R.I'M  each  S  70.00 

Utilities 

Super  Basic  64 S  35.00 

Super  Copy  64 S  35.00 

Sketch  Pad  64 S  75.00 

54  Fourth S  45.00 

MTS  Terminal  Package 

(up  and  down  load)  S  35,00 

HED  — The  Graphics  Designer S  35,00 

80  Column  Expander S  55.00 

Oscar  by  Databar 

(Bar  Code  Reader)   S  79.95 

CBM  1541  Disk  Drive S  249.00 

Concord  Parallel  Disk  Drive   S  345.00 

Concord  Slave  Drive    Call 

MSD  Super  Disk  (Single) S  395.00 

MSD  Super  Disk  (Oual) S  695.00 

Vic  1 550  Automatic  Modem S  1 09.95 

Hayes  Smart  300  Modem S  249.00 

Hayes  Smart  1200  Modem S  6Z9.0D. 

Vic  1530  Datasette S  65.00 

CBM  1520  Printer  Plotter S  179.95 

5  Slot  Expander  (64) S    65.00 

64  Relay  Cartndge S  45.00 

Numeric  Key  Pad  w/Adapter S  49.00 

Allen  Voice  Box  (Talks  &  Sings) S  1 19.00 

Verbatim  Diskettes: 

Single  Sided  Single  Density    S  26.00 

Single  Sided  Double  Density  S  30.00 

Double  Sided  Double  Density  S  42.00 

Texas  Instruments  LCD  Programmer. . .  S    55.95 

CBM  4023  Ribbons S  12.00 

CBM  8023  Ribbons S  14.95 


ACCESSORIES 


INTERFACES 


LETTER  QllALITV  PRIIMTERS 


D    I    S 


Rip  N' File Call 

Power  Strips  w  surge  stopper Call 

Computer  Care  Kit S    19.95 

Interpod  (full  compatibility!!) 

{Intelligent  IEEE  &  RS232) Call 

Tlie  Connection 

(full  graphics  of  64) S    95.00 

Card  CO  -  G  Parallel  Interface S    79.00 

Wc  Switch S  149.95 

ADA  1800  (Parallel)  S  129.00 

ADA  1450  (Serial) S  149,00 

Pet-to-IEEE  Cable S   39.00 

lEEE-to-IEEE  Cable S    49.00 

4  Prong  A  V  Cable S    15.00 

Custom  Computer  Cables 
(we  make  to  your  specifications)  Call 


M()M1X)R.S 


CBM  1702  Color  Monitor S  249.00 

Panasonic  CT-1 60  Color Call 

Panasonic  TR-120  (Green) Call 

Panasonic  TR-1 20  (Amber)  Call 

Transtar  120  (80  columni S  535,00 

Transtar  130  (132  column) S  725.D0 

CBM  S400  Printer S1425.00 

NEC  Spinwrlter Call 

Cardco  LQ  1  Printer  S  565.00 

CBM  MPS-801  Pnnters 

Replaces  1 525  (50  cps) S  235.00 

OI<idata82A S  412,50 

OkidataSS S  635.00 

Okidata84P S1165.00 

Okidata92P S  519.00 

Okidata93P S  810.00 

Panasonic  KX-P1090  Printer Call 

Panasonic  KX-P1091  Printer    Call 

Panasonic  KX-P1092  Printer Call 

Panasonic  KX-P1 093  Printer  Call 

DEALERS  INQUIRIES  \HLCOME 

Call  to  Order 

1-800-527-1738 

All  Others  C^l 

1-214-231-2645 

Micro-Sys 

T    R    I    B    U    I 


DOT  MATRIX  PRlVraRS 


BUSINESS  SOFTWARE  —  8032 


Star  Gemini  10X S  329,00 

Star  Gemini  15 S  499.00 

Star  Gemini  Delta  10 Call 

Executive  64  portable  (new) Call 

B128-80  128k  Bus.  Machine  (new)  . . .         Call 

SuperPet  (5  languages)  , 51059,00 

CBM  8032  S  625,00 

CBM  2031  Single  disk S  295.00 

CBM  8050  Dual  Disk  1  meg S  995.00 

CBM  8250  Dual  Disk  2  meg SI 295.00 

64K  Expansion  Board S  275.00 

SuperPet  Dpgrade  Kit S  695.00 

Wor(lPra4+  orSn-  5  305,00 

Visicalc S  225,00 

Tlie  Manager S  199.00 

BPI  Accounting  System 

(5  separate  modules) S  325.00 

Southern  Solutions  Accounting 

System  III  (Per/Module) S  285.00 

McTerm  Communications  Package. . . .  S  175.00 

Superscript  II Call 

Supert}ase  Call 

Superotfice Call 

Complete  Accounting  Systems Call 

Mailing  List  Manager Call 

Order  Entry.'Point  o1  Sale Call 

Calc  Result    Call 

Silver  Reed  EXD-10 S  269.00 

IF-10  Interface S  109.00 

Silver  Reed  EXD-15 S  475.00 

IF-15lnteriace S  119,00 

Silver  Reed  EX-43 S  595,00 

IF-43  Intertace S  175,00 


Orders  under  50.00  add  10.00  Handling  fee 

MasterCard.  VISA.  Money  Order.  Bank  Check 

COD  (add  5.00) 

Add  3%  For  Credit  Cards 

All  Products  Shipped  Within  24  Hours 

FO.B.  Dallas,  Texas 

All  Products  Shipped  With  Manufacturers 

90  Day  Warranty    PRICES  ARE  SUBJECT  TO 

CHANGE  WrmOLT  NOTICE, 
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In  the  newer  versions  of  the  64,  there  is  no  default 
filling  of  color  memory.  When  you  POKE  characters  to 
the  screen  (locations  i024-2047)  in  the  newer  64s,  you 
also  have  to  POKE  values  to  the  corresponding  location 
in  color  RAM  (bytes  55296-56319).  For  example,  if 
you  POKE  1025,1  (the  second  position  in  screen  RAM) 
you  also  need  to  POKE  55297, x  (the  correspotiding 
second  position  in  color  RAM).  The  x  can  be  a  value 
from  0  to  15,  corresponding  to  the  16  character  colors 
available  on  the  64. 

It's  good  practice  to  ahvays  POKE  color  memory 
when  POKEing  screen  memory.  That  way,  your  pro- 
grams will  run  on  any  version  of  the  Commodore  64. 

Modem  Tariff  Update 

I  am  happy  to  report  that  Southwestern  Bell  has 
eliminated  the  requirement  that  modem  users 
obtain  Information  Terminal  Service  for  their 
modems.  While  the  problem  has  been  taken  care 
of  here  in  Oklahoma,  I  have  not  heard  anything 
which  rescinds  rumors  of  similar  tariffs  in  other 
states.  Therefore,  I  would  like  to  extend  an  invita- 
tion to  your  readers  to  telephone  me  should  they 
experience  similar  problems  with  their  local  tele- 
phone company. 

Robert  Braver 

MCI  Mail:  RBRAVER 

Source:  STY801 

Telex:  650-116-9625 

Telephone:  (405)  360-7462 

Robert  Braver  is  the  author  of  "Guest  Commentary: 
The  High  Cost  Of  Personal  Telecomuninicatio)is" 
(COMPUTE!,  November  1983).  His  commentary  dealt 
with  the  then-unresolved  question  of  whether  South- 
western Bell,  and  other  telephone  companies,  should 
charge  home  computerists  a  higher  rate  (tariff)  to  connect 
modems  to  their  residential  telephone  lines. 

Automatic  LOAD  And  RUN  For 
Commodore 

I  own  a  Commodore  64  and  would  like  to  know 
if,  after  LOADing  a  program  from  tape  or  disk, 
there  is  a  way  to  make  it  automatically  RUN  with- 
out having  to  actually  type  in  the  RUN  command? 

Jeffrey  Stevens 

On  Commodore  computers,  you  can  LOAD  and  auto- 
matically  RUN  a  program  from  disk  or  tape.  For  tape 
LOADS,  simply  hit  the  RUNISTOP  key  while  the 
SHIFT  key  is  depressed.  The  first  program  that  is  found 
on  the  tape  will  LOAD  and  RUN.  If  you  wish  to  LOAD 
and  RUN  a  program  other  than  the  first  one,  type  in 
LOAD  "Program  Name" ,1:  and  then  press  the  RUN/ 
STOP  key  with  the  SHIFT  key  dozon.  hi  this  case,  the 
program  designated  by  Program  Name  will  LOAD  and 
automatically  RUN. 

A  similar  procedure  can  befolloioed  if  you  are  using 
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a  disk  drive.  Type  LOAD ,8:  and  then  press  SHIFT 

RUN/STOP  to  LOAD  and  RUN  the  last  programac- 
cessed  (if  no  program  resides  in  memory,  the  first  pro- 
gram listed  in  the  directory  will  be  LOADed).  For  pro- 
grams other  than  the  first  one  on  the  disk,  type  LOAD 
"Program  Name", 8:  and  press  SHIFT  RUNISTOP. 


Tl  Cartridge  Loading  Problem 

In  answer  to  Charles  Smith's  inquiry  (COMPUTE!, 
January  1984)  regarding  difficulty  in  repeated 
loading  of  T1-99/4A  cartridges,  several  of  us  in  a 
user  group  have  had  the  same  problem.  It  is  the 
result  of  TI's  use  of  a  right-angle  adapter  for  the 
cartridge  socket. 

The  horizontal  socket  is  mounted  90  degrees 
to  a  vertical  connector  board,  which  then  plugs 
downward  into  the  motherboard.  Continued 
horizontal  motion  eventually  loosens  the  pin  ten- 
sion in  the  motherboard  socket.  Unfortunately, 
the  solution  requires  disassembly  of  the  computer 
to  gain  access  to  the  motherboard  socket. 

Charles  Smith  will  have  to  decide  whether  he 
wants  to  tackle  this  on  his  own  (possibly  voiding 
his  warranty),  or  refer  the  job  to  an  authorized 
service  center. 

Donald  C.  McMahon 


Long  Commodore  Tape  Saves 

With  long  programs  it  is  often  not  possible  to  finish 
typing  in  a  listing  in  one  sitting.  I  have  been  saving 
part  of  the  program  on  tape  and  when  I  continue 
the  second  part,  I  erase  the  first  part  on  the  tape 
and  rerecord  the  whole  thing. 

I  would  like  to  just  continue  recording  with 
the  next  line  number  of  the  program.  Please  advise 
if  there  is  a  way. 

J.  R.  Blundin 

When  you  SAVE  to  tape,  the  computer  first  writes  a 
header  which  contains  information  such  as  program 
name  and  starting  address.  Then  the  program  is  saved 
twice,  and  an  oid-of-file  marker  is  written  when  the 
tape  file  is  closed.  (Coiinnodore  computers  sa~oe  programs 
livicc  as  a  safely  measure. ) 

These  SAVE  procedures  make  it  impossible  to 
position  the  tape  and  appoid  the  second  half  of  the  pro- 
gram onto  tlie  first.  Attempting  this  would  probably 
result  in  a  DATA  error,  and  both  halves  might  be  lost. 

During  long  typing  sessions,  you  should  SAVE 
your  incoinplcte  program  occasionally  (every  hour  or 
so).  This  way,  if  some  sort  of  catastrophe  happens,  you 
won't  lose  the  entire  program.  You  can  load  the  last 
version  you  saved  and  continue  typing. 

Also,  it's  iwt  a  good  idea  to  continually  rewind  the 
tape  ami  keep  saving  programs  over  the  same  section  of 
the  tape.  Saving  programs  consecutively  -will  afford 
another  safety  measure — you'll  always  have  backup 


A  ATARI 


600XL  . 
800XL  . 
1200XL 


1050  DRIVE  S335 

1025  PRINTER  S399 

1020  COLOR  FTR  ...  $219 

1027  PRINTER  S279 

1010  RECORDER S72 

DRIVES 

ASTRA  16Z0   $469 

RANA  1D00   J295 

PEHCDM  ae-SI  $29B 

PERC0M4O-S1   S4ie 

PEftC0M40-S2 1718 

PERC0M44-S1  $510 

PEfiCaH44-S2 $929 


CALL 

CALL 

$409* 

'Raflects  J1D0  Atari  R«bst9 
MICROBITS  INFC  ...  $78 
aO  COLUMN  BD  .  $249 
TECHNICAL  NOTES     ..  $25 

REAL  TIME  CLK    $38 

810  DRIVE    $419 

MEMORIES 


SPECIALS 

Gemini  15X  Printer   $399 

Axiom  AT-100Printer(with  interface    $229 

Astra  Double  Density  Dual  Drive $469 

Rana  1000  Drive     : $319 

Bit-3  80  Column  Board  $245 

Mannesmann  Talley  160L  Printer   $589 

Atari  400  Keyboard  (In  Home)    S36 

Programmer  Kit    ..$48    Entertainer  Kit   ...$64 
WicoJoystick    ...$23    Wico Trackball  ...  $49 


COMMODORE 

Cv    CBM64    CALL 
^    1541  DISK  DRIVE  ...  $239 


48K  RAM  (INTEC)  . . 
e4K  RAM  (INTEC)  . 
48K  RAM  (MOSAIC) 
B4K  RAM  (MOSAIC) 
128K  RAM  DISK   ... 
32K  RAM  (MOSAIC) 


S95 
$119 
$109 
$145 
$299 

$68 


ATARI  SOFTWARE 


ADVENTURE  INT'L 

Adv.  1-12 aach{C)  $18 

PreppiB(C;D) 120 

PrBppiell(C/D)   S23 

DIskey  (D)    S33 

Sea  Dragon  (OD)    S23 

APX 

Eastern  Front  (C/D|  .  .  S23 
747  Land  Sim.  (C/O)  . .  $17 
FiQForth(C)   $30 

ATARI  INC. 

Microsoft  Basic  II  (R)   .  $62 

Mickey  in  Great 

Outdoors  (C/D)    ....  S36 

Paint  (Dl $30 

Speed  Reading  (C)   . . .  $54 

Qix(R)    $30 

Dig  Dug  (B)    $30 

Atari  Writer  (R)    $6a 

Donkey  Kong  (R) $30 

Time  Wise  (D)   $23 

Visicalc(D)   S139 

Juggles  House  (C;D}  .$22 
Juggles  Rnbw  (C/D)    ..  $22 

Pilot  (Home)   $55 

Galaxlan   $30 

Defender  $30 

ET $34 

Microsoft  Basic  (D)  ..  $62 
Macro  Ass.  &  Edit  (D)  .  $62 
Assembler  Editor  |H)  .$42 
Basic  Cartridge  (R)  ...  $45 

PacMan(R| $30 

Centipede  (R)    $30 

Caverns  of  Mars  (D)   . .  $28 

Star  Raiders  (R) $30 

Conv.  Lang.  Ea.(C)  ...  $42 
Music  Com  poser  (Rj  .  .  $31 
Super  Breakoul  (H)  .  .  .  $26 
My  First  AlpnabellD)  .  $26 

Prog.2&3(ea.)(C) $21 

Word  Processor  (D)    .  $102 

Pilot  (Educ.) $92 

Touch  Typing  (C)    $ia 

Home  File  Mngr(O)    ..$36 

AUTOMATED  SIMUL 

HellfireWarrior(C/D)  .  $27 
Kng  Arttir'sHeir(CID)  $20 
Invasion  Orion  (C;D)  ..  $17 
Templeof  Aps.  (C/D)    .  $27 

Star  Warrior  (C/D) $27 

Dragon's  Eye  (D) $20 

Crush  Crumble  (C/D)    .  $20 

AVALON  HILL 

VC(D) $17 

B-1  Nuc.  Bomber(C)  ..  $12 
Legionnaire  IC) $23 

BRODERBUND 

Sky  Blazer  (D)   $22 

Bank  St.  Writer  (D)    ...  $46 

A.E.(D) $23 

Arcade  Macftine(D)  ..$39 
Chopliftar(D)    $23 

CBS 

Mountain  King  (R)  ...$27 
Boulders  &  Bombs  (R)  $27 
Krazy  (each)    $34 

CONTINENTAL  SOFT. 

Home  Accountant  (D)  $48 
Tax  Advantage (0)    ...  $39 

DATASOFT 

Text  Wizard  (D) $65 

Graphic  Master  (D)  ...  $27 

Micro  Paln(Br(D) $23 

Ll3plnterprBter(D)  ...  $79 

Graphics  GBn.(D)    $17 

Basic Compllsr(D)  ...  $65 
Zaxxon  (C/D)  $27 

DONT  ASK 

Sam  (D)    $39 

P.M.  Animator (D)  ....  $23 
Tflletarl  (D) $27 


*flSTRfl  1620 

DISK  DRIVE  SYSTEM 

MORE  FOR  YOUR  MONEY 

DOUBLE  OR  SINGLE  DENSITY 

TWO  DRIVES 

SPECIAL    $469 


1701  Color  Monitor  ..  $255 

1S25Prliit6r    J239 

1520  Color  Ptr $159 

Card? (Into)  $60 

LIghl  Pen    $29 

Cassette  Inic $29 

Card  ?  Software    $16 


1530RocoriJer    $59 

1600  Modern    $59 

1BS0  Auto  Modem    ...     $8S 

CMS  64  Pel  Guide  $1B 

The  Connection  (Infc)   . .  $S5 

MSO  Disk  Drive    $339 

PTI 45  Lot  Board  $59 
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SOFTWARE 
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EDU'WARE 

Prisoner  ii(D)    $27 

Spelling  BBe(D)    $27 

Compu-Raad  (D)  $20 

Compu-MathPr.  (D)    ..  $27 
Compu-Math  Dec.(D)  .  $27 
EDUCATIONAL  SOFT. 
Tricky  Tutorial 

1,2.3or4(C;D)  .  .,  ,  ,  $15 
Tricky  Tutorial 

5,6  or  7  (C/D)    $22 

INFOCOM 

Suspended (D)    ,  $34 

ZorkI,  llorllKDl   $27 

Slarcross(D) $27 

Deadline  (D)    $34 

JV  SOFTWARE 

Jrny  to  Pints  (C»0)  ...  $20 

Action  Quest  (C/D)   ...  $20 

Ghost  Encount.  (C/D)  .  $20 

LJK 

Letter  Perfect  (D)    S74 

Data  Perfect  (D)    $74 

ON-LINE 

Ultima  11(D)  $39 

Marauder  (D)  $23 

Lunar  LeepBr(D) $20 

Wiz&  Princess  (D)    ...  $22 

F/ogger  (C/D)    $23 

Crossfire  (Rt    $23 

OPTIMIZED  SYSTEMS 

C.65(D)    $58 

BUB-6S(D) ..  $23 

Max.65  (D)   $58 

Basic  A  +  (D) $58 

nOKLAN 

Gorf(D)    $27 

Gorf  (R)    $30 

Wizard  of  Wor(D)  ....  $27 
Wizard  of  Wor(R)  ...  $30 
SIRIUS 

Alpha  Shield  (R)    $27 

Wavy  Navy  (D) $23 

Bandits  ID)    $23 

SPINNAKER 
SnooperTroopl,2(iD)  .  $30 

Kindercomp(D) $20 

Rhymes  &  Riddles  (D)  $20 
Hey  Diddle  Diddle  (D)  -  $20 
SrchAmzngThtigs(D)  $27 
Story  Machine  (D)  —  $23 

Face  Maker  (D)  $23 

STRATEGIC  SIM. 
Cosmic  Balance (D)  ..$27 
Cosmic  Balance  11(D)  $27 
Tigers  in  Snow  (C/Dl  .,  $27 
Battle  Of  Shiloh  (C/D)  ,  $27 
Battle  of  Norm.  (C/D)  .  $27 
Galactic  Gladiator  (D)  $27 
Cytron  Masters  (D)  ...  $27 
SYNAPSE  SOFTWARE 

FlleMnsreOO+    $65 

Protector  II  (DJ$23(R)$29 
Shamus  ..  .  (D)$23{R)$29 
Fort  Apocalypse  (C/D)    $23 

Shamus  II  (C/D) $23 

Necromancer  (C/D)  ...  $23 
Pnaroti's  Curse  (C;D)  ,  $23 
THORN  EMI 

Soccer(R)   $34 

Jumbo  Jet  (R)   $34 

Submarine  Comm.(R)  $34 
USA 

Atari  WorW  (D)    $39 

3-DSprgrphcs(C/D)   . .  $27 
MISCELLANEOUS 
Sargonll    ..  {C)$20(D)$23 
Financial  Wizard  (D)  . .  $41 
Castle  Wolfen3teln(D)  $20 

Master  Type  (D) $27 

Millionaire  (D)  $52 

Astro  Chase  (D) $22 

All  Baba  (D)  $22 

Miner 2049er(R)   $34 

Sammy  Sea  Serp.  (C)  .$13 
Plnball(D|    $20 


Printers/Etc. 


GEMINI  10X 
GORILLA  .  . 


S279 
$199 


PROWRITER 
SMITH  TPI   .. 


CITOH 

Prowriler  $345 

Prov^rilerli    $629 

Slarwriler    $1149 

Printmaster $144B 

NEC 

8023  A-C  $409 

3510  S1375 

3530  $1579 

3550  $1779 

7710/7730  $1398 


$345 

$486 

.  .  $669 
$1299 


SILVER  REEDP 
QUME  11/40  + 
OKI-DATA 

Microline82A   $396 

Microlinea3A    $638 

Microline84P    $958 

Microline92    $488 

Microline93    $868 

DIABLO 

620R $939 

630R $1719 


MONITORS 


AMDEK 

Color  I    $289 

V300 $139 

V300A    $149 

Color II $449 


NEC 

GRN(JB1260)   $115 

GRNfJBlZOl)  $155 

Color  Composite    .  .  ,  $298 
RGB  Color $598 


MODEMS 


HAYES 

Smartmodem 
Smartmodem  1200 
Mioromodemll  . . 


$209 
.  $496 
.  $259 


NOVATION 

J-Cat    $99 

Apple  Cat  II  $259 

D-c;at   $149 


COSMIC 
COMPUTERS 

UNLIMITED 

727  BREA  CANYON  RD.,  SUITE  16 
WALNUT,  CA  91789 

ORDER  LINES  OPEN  MON-SAT  8  am  -  8  pm 

(800)  626-7642 

PLEASE  FOR  ORDERS  ONLY 
SORRY,  NO  COD'S 

(714)  594-5204 

FOR  TECHNICAL  INFO,  ORDER  INQUIRIES, 
OR  FOR  CALIFORNIA  ORDERS 

Add  $2.50  shipping  per  soltwaie  offler  in  coniinentai  US.  Add  S5  00 
snipping  per  soltware  OfOer  lor  4K.  HI,  FPO-APO.  Add  $1000  or  15% 
(whichever  is  greater)  p«r  software  orC«r  lor  non-U  5  Cail  lor  cost  ol 
hardware  shipping  Calif,  residents  add  6V2*/i  sains  lax  Cashiers 
checks  or  money  orders  Idled  wilhln  24  floors  lor  Hems  in  slock 
Persona!  cneci<s  require  4  weeks  to  clear  MasterCard  and  Visa  OK  for 
EOltwareoniy  wilhmconlinentalU  S  .  add  3'/i  surcharge.  Include  card 
no.,  expiration  dale  and  signatijre.  Due  to  our  low  prices,  all  sales  are 
final  All  detective  returns  mjsl  have  a  return  authorisation  n^mtier 
Please  call  to  ootain  one  before  returning  goods  lor  replacemeni  or 
repair  Prices  &  availability  subject  to  change 


Multiplan    

Script  64 

Calc  Result  Prof 

Calc  Result  Easy 

Ttie  Home  Accountant .  . 

Deipfiis  Oracle 

Word  Pro  3  with  Spell    .  . 

ACCESS  SOFTWARE 

Neutral  Zone  (C/D)  ...  $26 
Sprite  (Easier  (CfOI  ...  $27 

AVALON  HILL 

Nukewar(C)    $12 

Planet  Miners  (C)    $12 

Androm.  Conquest  (C)  $14 
fvlidway  Campaign  (C)  $12 
Norffi  All.  Convoy  (C)  .  $12 
Comp.  Stcks/Bnds(Cl  $15 
Computer  FootbalUCl   $18 

Telengard(C)    $16 

BATTERIES  INCLUDED 

Paper  Clip  (D)    $85 

Delpnis  Oracle(D|  89 

BRODERBUND 

Chopilfter(R|    $29 

Serpentina  (H) $27 

Seafox  (R) $27 

David's  fwlldnlgtil(D)  . .  $23 

COMMODORE 

Easy  File  (0)    $75 

Easy  Finance  (D)    $38 

EasyfvlaiHD) $38 

Easy  Script  (Dl    $75 

Easy  Schedule  (D)    ...  $59 

Looo(Rl  $75 

Pilot  (D)   $75 

Assembler (D)  $38 

Music  fvlachine(D)  ...  $25 
Music  Composer  (D)  . .  $25 

Meza  Music  (D)  $75 

Video/Music  Supt.(D)  $38 
Jupiter  Lander  (R)  , ...  $25 
Radar  Rat  Race{R)  ...  $25 

SeaWoil(R)    $25 

Kickman(R) $25 

COMMDATA 

PakacutJa  .  (C)$l4(D)$ia 
Escp.  MCP  .  (C)S14(D)$18 
Centropods   (C)$14(D)$18 

COMPUTERIMAT 

Ar(;atle-Pak{C)    $18 

Eduoation-Pak(C) $18 

CREATIVE  SOFTWARE 

Moondu5t(R)    $26 

Trashman(Rl    $25 

Save  New  York  (R)    ...  $25 

Astroblitz(Rl $25 

Household  Fin.  (0)  ...  $25 

DATA  20 

Video  Pak  SO  $139 

Zao  Video  Pak $229 

EN-TECH 

Finance  Calc  64    $34 

DataBa8B64    $56 

Invoice  Ease  64     $56 

EPYX 

Templeof  APS  ID)  ...  $27 
Upper  Reach.  APS  (Dl  $14 
Jumpman(D| $27 

HES  Modem    $59 

6502  Prof. DBV.SyS.(Cl  .  $22 

Hesmon64(Rl $27 

Turtle  Grapics  II  (R|    ..$41 

Heswriter  64  (R)    $32 

Gridrunner(R|  $27 

Relrohall(R)    $27 

INFOCOM 

Zo*  I.  II  or  III  (Dl   427 

Deadline (D|    $35 

Starcross  (0)  $27 

JIN  SAM 

Mlnl-Jinl(R) $75 

LITTLE  WIZARD 

Pro.Mall.Llst  (C)$22(0)$25 
Stockmaster 

(Inventory)  (C)$25|DU28 
LOGISTIC 

Datacalc64  (C)  $55  (D)  $59 
hlome  Journal  (D)    ....$55 


CALL 
.  $77 
.S1 14 
.  S6B 
.  S48 
.  $89 
.  $78 


MICROSPEC 

Payroll  System  (D)  . , ,  $73 
Inventory  Pkg(D|  ....  $73 
General  Ledger (D)  . ..  $73 

Di5l(DaiaMgr{D)   $62 

Mail  List  Mgr(D)   $41 

Checkbook  Ivlgr  (0)  .  - .  $39 
M-SOFT 

MFile(D| $89 

ONLINE 

Frogger(D)    $23 

Jawbreaker  (0)   $20 

PACIFIC  COAST  SOFT. 
PCS  (80  Col  BD,  Word  Proc, 
D.Base.Spreadsheet)  CALL 
Account  PAC(C/D|  ...  $34 

FllePAC(Dl $30 

Editor  PAC(D} $39 

Inquire  PAC(D|  $57 

Happy  Tutor  Typng(D)  $18 
PROFESS.  SOFTWARE 
Wordpro  3  +  /64  (D)  -  -  -  $68 
QUICK  BROWN  FOX 
Prof.Word  Proc.  (R)  . .  .  $50 
RAINBOW 

Writers  Assistant  ...  $95 
Spreadsheet  Assist.  . .  $95 

File  Assistant  $95 

SIRIUS 
eiadefBlackpoodle(D)  $27 

Type  Attack  (D)  $27 

Replon(Dl  $27 

Critical  Mass{D) $27 

Snake  Byte  (D)    $23 

Way  Out  (Dl  $27 

Fast  Eddie (D)  $23 

Turmoil  (D) $23 

Spider  City  (Dl $27 

Squish'Em(D) $23 

Final  Orbil(D)  $27 

Alpha  Shield  (D)    $27 

SKYLES  ELEC.  WORKS 

Busicalc(C/D) $52 

Busiwfiter(D)    $72 

SPINNAKER 

Snooper  Troops  1  (D)   -  $29 

Pacemaker  (0)    $23 

Kindercomp(D) $20 

Mey  Diddle  (D) $20 

Most  Atnai. Thing (D)  .  $27 

SYNAPSE 

Fort  Apocalypse  (C/D|    $23 

Survivor  IC/D)    $23 

Drelbs(C;D) $23 

Pharoh's  Curse  (C/D)   .$23 

Protector  1 1(D) $23 

Morgal  (D)   $23 

Shamus  (0) $23 

TAYLORMADE 
Touch  Typing  Tutor 

3,0(D) $21 

TIMEWOrtKS 

Rbbrs/Lost  Tomb  (C/D)  $21 

Wall  Street  (C/D) $21 

Money  Manager  (C/D)    $21 

Data  Master  (C/D) $21 

Dungeons  of  Alg. 

Dragons  (C/D)  $21 

TOTL 

Text  2.6  ...  (C)  $32  (D)  $34 
Labei2.6  . .  (C1$15(0)$17 
Time  Manager  2.6(C)  .$24 
TimBManager2.6(D)  .$27 
Resrch  Assist.  2.0  (CI  .  $24 
Rasrch  Assist.  2.0  (Dl  .  $27 
UMI 

Motor Mania{C)   $20 

Renaissance (C)  $27 

VICTORY 

Annlhllator(C/Dl $16 

Kongo  Kong  (C/D) $16 

Trek  (C/D) $14 

Adv.  Pack*  1  (C/D)  ...$16 
Adv.  Pack  #2  (C/D)  ...$16 
Grave  Robbers  (C/D)  .  .  $13 
ChomperMan(C(D)   . .  $18 


versions.  If,  for  example,  a  tape  becomes  crinkled  in 
one  spat,  ifoii  can  reunud  ki  the  previoiish/  saved 
version. 

finally,  when  you  SAVE  a  program,  the  cassette 
ivill  perform  the  sa'oe,  then  stop.  The  place  where  it 
stops  is  where  you  want  to  start  the  next  SAVE.  K)iow- 
ing  this,  you  can  save  the  time  and  loorry  involved  in 
positioning  or  reioinding  the  tape. 

Saving  Incomplete  Programs 

I  recently  purchased  a  Commodore  64  along  with 
a  1541  disk  drive.  I  know  how  to  format  a  disk, 
SAVE  a  program,  LOAD  a  program,  and  RUN  it. 
However,  I'm  not  sure  how  to  SAVE  a  program 
that  is  not  complete,  then  LOAD  it  back  in  to  finish 
work  on  it.  Also,  if  I  LOAD  a  program  and  if  has 
mistakes  in  it,  I'm  not  clear  on  exactly  how  to 
correct  these  errors. 

William  H.  Boothe 

An  incomplete  program  is  SAVEd  the  same  xvai/  a  com- 
plete program  is: 

SAVE  "filename",devno 

(on  Commodore  computers,  for  example)  zuhere  filenanie 
is  a  name  you  assign  to  the  file  (it  can  contain  up  to  16 
characters),  and  de\'no  /s  the  device  luimher  (1  —  tape, 
8  =  disk).  The  computer  does  not  know  (or  care)  if  ifonr 
program  is  complete  or  not. 

To  correct  errors  and  make  other  changes  to  pro- 
gram lines,  display  the  line  you  wish  to  change  on  the 
screen  hy  typing  LIST  foil oioed  by  the  line  number. 
When  the  line  is  displayed,  move  the  flashing  cursor  to 
the  desired  place  on  the  BASIC  line  using  the  cursor 
movement  keys  in  the  lower  right  of  the  keyboard. 

To  insert  a  character  or  characters  into  the  line, 
move  the  cursor  to  the  position  where  i/ou  -want  to  insert, 
then  hold  doxon  SHIFT  and  press  INST/DEL.  This  -will 
insert  a  space  each  time  you  press  the  INST/DEL  key. 
hlow  type  your  change,  and  press  RETURN.  To  delete 
an  umoanted  character,  j)iove  the  cursor  one  character 
past  the  one  to  be  remoivd,  press  DEL  (-without  SHIFT), 
then  press  RETURN. 

When  you  edit  a  program  line  and  press  RETURN, 
the  corrected  line  is  entered  into  the  BASIC  program  in 
its  proper  place.  Consult  your  user  manual  or  Pro- 
grammer's Reference  Guide  for  further  details. 


serial  interfaces.  They  cannot  talk  to  each  other  or  to 
each  other's  peripherals.  An  interface  to  coni'ert  from 
Commodore  serial  and  Atari  serial  is  conceii'able,  but 
-we  hurw  of  none. 

There  is  one  xvay  the  t-wo  computers  can  connnuni- 
cate — oiK'r  a  common  i>itcrface,  such  as  KS-232.  Both 
Commodore  and  Atari  computers  can  send  and  receive 
data  o-oer  an  RS-232  cable  or  through  a  modem.  All 
that's  required  is  an  RS-232  interface  for  each  computer. 
You  could  set  up  a  program  on  the  VIC  that  sends 
anything  conung  in  from  the  RS-232  port  right  to  the 
printer.  The  Atari  -would  then  send  things  out  to  the 
VIC  over  its  RS-232  port.  You  could  even  operate  the 
VIC  1540  disk  drive  (ivith  the  right  program  in  the 
VIC)  to  handle  the  Atari  requests  for  program  sai>es 
ami  loads.  The  latter  method  would  be  rather  more  diffi- 
cult to  implement,  hoiceivr. 


Clearing  The  64  Screen  From  ML 

Our  machine  language  class  has  been  working  on 
several  small  routines  written  in  machine  language 
for  the  64.  One  of  the  subroutines  we've  written 
to  clear  the  screen  is  somewhat  lengthy — 49  bytes. 
We  feel  there  must  be  a  shorter  way.  Can  you 
help? 

Art  Lipina 

Yes,  there  is  a  shorter,  and  an  easier,  ~way.  There  are 
many  routines  in  both  the  64' s  BASIC  ROM  (SAUOO- 
$BFFF)  and  Kernal  ROM  ($EOOO-$FFFF)  that  you 
can  use.  For  example,  there  is  a  screen  clearing  routine 
at  $E544  (decimal  58692).  Here  arc  tjvo  ways  to  clear 
the  screen  using  ROM  routines: 

JSR  $E544 

This  Kernal  ROM  routine  clears  both  screen  and  color 
memory,  and  then  resets  the  screen  tine  link  table. 
Clearing  the  screen  using  this  technique  uses  only  three 
bytes. 

LDA  #$93 
JSR     $FFD2 

This  method  (lohich  uses  five  bytes)  first  loads  the  ac- 
cumulator with  the  ASCII  character  that  clears  the 
screen,  then  calls  the  Kernal  PRINT  routine  ($FFD2). 
This  is  equi-oalent  to  the  BASIC  statement  PRINT 
"[CLR]". 


Using  A  VIC  Printer  With  Atari 

I  own  a  Commodore  VlC-20  and  a  1525  Graphic 
Printer,  I  am  contemplating  purchasing  a  second 
computer.  I  realize  I  could  use  my  printer  with  a 
Commodore  64,  but  is  there  any  way  to  interface 
it  with  another  brand  of  computer,  like  the  Atari 
800XL?  If  so,  where  can  I  get  such  an  interface? 

Chris  Hill 
Unfortunately,  Commodore  and  Atari  use  proprietary 
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COMPUTE!  welcomes  questions,  comments,  or 
solutions  to  issues  raised  in  this  column.  Write  to: 
Readers'  Feedback,  COMPUTE!  Magazine,  P.O. 
Box  5406,  Greensboro,  NC  27403.  COMPUTE! 
reserves  the  right  to  edit  or  abridge  published 
letters.  © 


NEW! 

Universal  Input/Ontpat 

Board  for  VIC-20/64 


■  16  channel  8-bit  A'D  converter  with  100 
microsecond  sampling  time. 

•  1  D/A  output. 

•  16  high  voltage  high  current  discrete  out- 
puts. 

•  1  EROM  socket. 

•  Use  multiple  boards  for  additional  channels 
up  to  6  boards. 

V1C-20  OKI  MW-311V SZ05.00 

CBM-64  nau  MW-311C £225.00 


5 


C 


MW-302:  VIC-20/64 
Parallel  Printer  Interface. 


Works  with  all  Centronics  type  parallel 
matrix  &  letter  printers  and  plotters — 
Epson,  C.ltoh,  Okidata,  Nee,  Gemini 
10,  TP-I  Smith  Corona,  and  most 
others.  Hardware  driven;  works  off  the 
serial  port.  Quality  construction;  Steel 
DIN  connectors  &  shielded  cables.  Has 
these  switch  selectable  options;  Device 
4,  5,  6  or  7;  ASCII  Or  PET  ASCII;  7-bit 
or  8-bit  output;  upper  &  lower  case  or 
upper  only.  Recommended  by  PRO- 
FESSIONAL SOFTWARE  for  WordPro 
3  Plus  for  the  64.  and  by  City  Software 
for  Paperclip. 

MW-302 S119.9S 


Dealer 
inquiries  invitee 

WSA 

-^ 

Micro  World  Electronix,  Inc. 

3333  S.  Wadsworth  Blvd.  #C105, 

Lakewood,  CO  80227 

(303)  987-9532  or  987-2671 


How  to  make  your  computer 
lodi  as  smart  as  it  IS. 


Store  it  in  a  beautiful 
piece  of  furniture  specifi- 
cally designed  for  the 
proper  operation  and 
sloritge  of  your  home 
computer  equipment. 

•  Upper  unit  shelf  adjusts 
to  most  computers.       ^ 

'  Keyboard  shelf  at  cor- 
rect typing  height  with 
plenty  of  work  surface. 

•  Monitor  placement  at 
proper  height  and  view- 
ing distance  eliminates 
fatigue. 

•  Lower  tinit  shelves  for 
storage. 


•  Desk  shelf  swings  up  to 
close  off  unit  when  not 
in  use. 

•  Compact  design:  34"w  x 
36"h  X  24"d, 

•  Indestructible  natural 
oak  or  walnut  wood- 
grain  finish. 

•  Ready  to  assemble  with 
only  a  screwdriver. 

ONU  $149.00 

To  order  call  toll  free 
1-800-426-5301 
In  Washington  call 
(206)  423-7277 
VISA  &  MiisterCard 
accepted. 


im  FIJRNITIIRE  BYTE 

P.O.  Box  1757    9Jud!th  Place    Longview,  WA  98632 


SAVE  BIG  ON  COMPUTER  PRODUCTS 


MODEMS 

HAYES 
Smertmcdem  300 
Smartmudem    1300 
Smflrtmodem   1P00B 
Wicrcmndflrti  II  E 
S^arxom  II  Software  [tor  IBM  PC] 

NOVATION 
J  Cat  3aOB  li-recl 
103  SmBrlCac  3008  Smart 
103/212  Smart  30a/lEQQ  B 
AppieCat  II  300  baud  hr  Apple 
313  ApBlaCat  300/12008  fir  Apple 
A:cess  1.2-3  120QB  to-  IBM 

MONITORS 

GOBILLA 

12"   Green 
12"  Amber 

TAXAN 
12"  K(3-13N  [green] 
12"  KE-12N-IJV  [amber] 
RGB  VTS'On  IIT 

AMDEK 
^3000  12"  grecfi 
V300A  12"  amtier 
V31DA  12"  amber  (for  IBM] 
CpiQcl*  13"  composite 
Ctfpr  II  13"  RGB 
Coicy-  IV  13  ■  RGB  analog 


2C9 
439 
435 
240 
90 

gg 
i5g 
37g 

200 

3gQ 
37g 


egoo 

94  00 

120 

las 

499 

130 
145 
IBD 

sm 

435 
740 


y 


<$> 


J" 


^ 


^^. 


.4>' 


HEWLETT-PACKARD 
CALCULATORS 


HP-11C 

tipjac_ 


70 
-SO.. 


HP-15C 
HP-1BC 


Wabash 

Maiel 

DyssT' 


DISKETTES 

10  -■  5'^*  '  Floppy  OsketteB 
Ipached  with  a  storage  bpi] 
SS ISD      SS  /  DD     DS  /  DD 
S19         32350         S30 
NA  37.00  39 

NA  37,00  39 

10  —  8"  floppy  ^skettes 


HP-41C  145  HPJ1CX  345 

HP.41CV  800  HP.B7  5S0 

s!L5S.'iwBrs.£  j.>a.e5aoBilfia 

PDRTABIE  COMPUTSHS 
HP.71B  339  HP-7B  719 


(V]  I  liit;.'^ 


NA 


3E0a 


42 


PRINTERS 

miiii'MiiiiiM 


I 
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QUADRAM 

MICROFAZER 

QBMP-S  Par/Par  135 

QBMBP-E  Ssr/Par  145 

QRMMSB-a  Sec/Ser                      .  145 

ORMPS-B  PiTi'Ser  14S 

QOADBOARD  [for  IBM  PC] 

0R5DB4  B4K  370 

0R4DB4   B4K  370 

QUAOLINK 

QR  3013G  fa-  IBM  475 

aHSaiOfDrCompati  47S 

on  3030  for  Columbia  475 

□R  BS01   Quadcolor-l  200 

QR  B2G2  Guadcolor-3  [upgratfe  krt]  200 
e  f^m  aO  —  80  col  carti 

far  AaplE  lie  115 


tit*/.,... ■•-*' 


Tremendous  Discounts 

GEMINI 

DELTA 

EPSON 

COMREX 

DIABLO  •    TTX 

MANNESMANN  TALLY 

Most  Models  IN  STOCK 

CALL  FOR  PRICES 


CABLES  -  INTERFACES 

accessories  for  CoTputer  Pnnters 

GflAPPLER    PUJS  130 

16K  BUFFERED  GRAPPLER  1S5 

A^e  Oumplirhg  70 

Csf^Q  G  ?0 

10  rt  Par  CaUie  For  IBM  22 

10  (t  36i36  Parallel  32 

10  ft  25»25  RS-232  2S 

Y  Cable  (far  TI-99/4A]  35 

5  ft  TI-9g/^A  parcel  cgbte_  25 
13ji1Bpfrcer  stand 

for  eo  co;   prmiersj  15 
16"22  printer  stand  [heav^  duiyj 

for  rtide  CHmage  prnters  dQ 

RIBBONS,  PAPER 

Paper  —  IDOOSfieet  Pack 

9t>  •  11  write.  30  6  13 

9Vi  <  11  green  bar.  30  o  12 

9'/&  X  1 1  trrni  eage.  20  c  15 

14';  I  11  Qf^en  bar.  2D  lb 19 


ftbbon  Caru-itJges 
*cr  Epsor  80  col  4 

to-  Epsor  132  CI*  7 

fa-  Mam  Tall(  IBQ  11 

fw-  Mann    Tally  1B0  14 

fa-MT  Sprit  BO  7  50 

for  Panasonic  1090  B  50 

tcr  DiBb'o  Hytype  II  5 

*cr  G  Itan  StflrwnCfir  5 

Twin  spool  nbtKms 
fH-GemimlO/lOX.  ia/15X, 
Okidata  BO,  B2,  B3 

Efor15  00or  12for  24,DD 


CALL  TOLL  FREE  800-621-1269  except  lllinoiB,  Alaska,  Hawaii 


Corp.  Accti.  Invitad.  Mrn.  Ord.  •IS. 00,  Masu-fTarij  or  ^isa  by  rnaiJ  or  p^^Dnc  Mai  Cashier's  Check.  Mon  Drd.,  Pens  Check  [2  wks  tadr)  Add 
£4  00  iBt.  Item  [AK,  HI,  p.n.p  Canada  add  •10.00  *irit  itim]  SI  DO  oa  oddl  snp^  £  hand!  Sn!;:mencs  tcIL  address  ackl  7^  Las.  Pnces  Bubj 
m  change  WRITE  for  f  ran  catalog.  RETURN  POUC¥;  Dvttctims  Only!  Moic  produfrca  raplacsd  within  3D  daya  of  purchaaa  with  IdinCical 
mflrchandiaa  only.  Camputar  and  iarga  panpliBrat*  rtpl4iCi»d  aniv  whan  defactivfl  an  mrrkva\  [within  3  work  davi  of  purchaael.  Other  prob- 
laniK  cavBrfld  fau  mfr    warrantw    ALL  ELEK-TEK  MEBCMAniniflF  IR  HIIAIVn  lUFUU    FlItnT  fauAl  ITV  AMDCnMDLFTF 


ELEK-TEKjnc. 


BSS7  14.  Uncoln 
(312)631  7B0a 


,  Cfiicago,  IL  60645 
1312)677  7660 


MACHINE  LANGUAGE 


Jim  Butterfield,  Associote  Editor 


A  Program  Critique 

Parti 


Over  the  next  few  columns,  I'll  be  going  through 
a  program  bv  Bud  Rasmussen.  This  program  per- 
forms a  single  disk  file  copy  on  the  Commodore 
64.  It  works  well;  I'll  abridge  the  program  slightly 
to  save  space. 

The  program  is  exceedingly  well  organized; 
it's  a  pleasure  to  read.  It  has  good  operator  inter- 
face (there  are  lots  of  messages)  and  performs 
many  useful  funchons  in  machine  language  that 
readers  may  wish  to  study  and  use. 

The  program  was  written  using  an  assembler, 
in  this  case  the  PAL  assembler  by  Brad  Templeton. 
Other  assemblers  would  do  the  job  equally  well, 
but  they  might  require  slight  changes  in  syntax. 

My  role  here  will  be  (with  Rasmussen's  per- 
mission) to  critique  and  comment.  Since  the  pro- 
gram works,  the  criticism  is  one  of  style  rather 
than  of  substance. 

Different  But  Still  RIgtit 

I  should  note  that  Rasmussen  wrote  this  program, 
not  for  commercial  purposes  or  publication,  but 
for  his  own  satisfaction  and  use.  I'll  be  somewhat 
unfairly  criticizing  his  program  based  on  its  ap- 
propriateness for  general  usage.  For  example,  I 
may  comment  adversely  on  such  things  as  his  use 
of  a  BRK  instruction  to  terminate  the  program  on 
certain  error  conditions,  because  this  would  be 
undesirable  in  a  public  program.  But  in  the  final 
analysis,  it's  Rasmussen's  personal  program  and 
it  works  the  way  he  planned  it. 

Accept  these  comments  as  ideas  on  how  to 
organize  your  own  work.  You'll  find  a  lot  of  good 
machine  language  programming  techniques  in 
the  program. 


ML  FILE  COPIER 
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IMMEDIATE  VALUES 


RK 

=  13 

;  RETURN  KEY 

HIO 

=  16 

; HEX TEN 

DK 

=  20 

; DEL  KEY 

C 

=  44 

; ','  ( COMMA  ) 

EOF! 

=  64 

;  END  OF  FiLE  INDICATOR 

W 

=  87 

;'W'(  WRITE) 

CH 

=  147 

;CLEAR/HOME 

Many  programmers  like  to  equate  constant  values 

to  labels.  This  way,  if  you  want  to  print  RETURN, 
you  can  write  LDA  #RK  instead  of  LDA  #$0D 
followed  by  JSR  SFFD2  to  print. 

My  preference  is  to  skip  the  symbol  and  use 
the  SOD  value,  as  long  as  it  is  the  same  on  all 
machines.  It  seems  to  me  that  the  symbolic  values 
are  useful  only  when  different  machines  use  dif- 
ferent values  for  the  same  function.  In  such  a  case, 
you  would  indeed  equate  the  appropriate  value 
to  a  label  and  save  yourself  work. 

The  next  section  (not  given  here)  defines 
zero  page,  working  storage,  and  Kernal  addresses. 
You  will  be  able  to  pick  these  out  directly  from 
the  program,  as  needed. 


cooo 


"=    scooo 


A  Program  Counter 

Many  assemblers  use  the  asterisk  character  (*)  as 
a  program  counter.  In  this  case,  the  program  will 
start  at  hexadecimal  COOO.  The  asterisk  is  often 
read  as  "here";  so  a  programmer  may  verbalize 
this  line  as  "Here  is  hex  COOO." 


;  SCREEN  ROUTINE 


umdi=i;n\(xi^ 

Software  that's  priced  UNDER  the  competitions' 


COMMODORE  64 

&  ATARI 

COMPUTER  CLASSICS 

ia?narjfJk'iJ.njii         ju<«iorYoui 

EPVX 

Temple  of  Apshai  (D&C) S26 

Upper  Reochss  Apshai  (D&C) S1A 

Gateway  to  Ppshoi  (CT) $24 

DrngonRiders  of  FBrn  <CT) SZ6 

Jumpman  (CT) %2i 

Jumpmon  Junior  (CT) S26 

PitStop(CT) S24 

Bftiderbund  Choplifter  (CT) S29 

BfOdeibund  Lode  Runnef  (D) $24 

first  Stor  Hip  Hop  (D&C ) $22 

Rrst  Star  Bristles  (D&C)  522 

HesWate  Gridrunner  (CT) $19 

WocomZoitf  1. 11.111(D) eo.  $24 

Infocom  Wtnoss  (D) $M 

Infocom  HonefFall  (D) S33 

PARKER 

Porter  Q  Bert  (CT)  $37 

Port<6r  Stor  Wars  (CT) $37 

Par1<er  James  Bond  (CT) $37 

Porker  Gyruss  (CT) $37 

Poiket  Popeye  (CT) S37 

Porker  Frogger  (CT) $37 

SYNAPSE 

Synopse  Blue  Max  (D&C) $22 

Synapse  ftxt  /apocalypse  (D&C) 522 

Synopse  hjecromoncer  (D&C) S25 

Syrvopse  Ptiorti  Curse  (D&C) $22 

Synapse  Zeppelin  (D&C) S22 

Sega  Star  Trek  (CT) $25 

Sega  Congo  Bongo  (CT) $25 

Sega  Buck  Rogers  (CT) $25 

Screenplay  DunZtiln  (D) 529 

Subbogic  Rnball  (D&C) $22 

SubLogic  Flight  Simulator 537 

SPINNAKER 

Alf  Color  Caves  (CT)  oges  3-6 $24 

Alptiabet  Zoo  (CT)  oges  3-8 $23 

Delta  Music  (CT)  S24 

Delta  Drawing  (CT) $24 

Face  Maker  (CT)  oges  3-8 523 

Kids  On  Keys  (CT)  oges  3-9 523 

KInderComp  (CT)  ages  3-8 519 

Bubble  Burst  (CT)  oges  4-8 $24 

Grandma's  House  (D)  oges  4-a 523 

Stoiv  Mactilne  (CT)  ages  5-9 524 

Bancti  West  (CT)  ages  S-10  S24 

Froction  Fever  (CT)  ages  7-12 523 

JukeBox  (CT)  oges  8-oduit S24 

Aegean  Voyage  (CT)  ages  3-Qdult  . .  $26 

Up  For  Grabs  (CD  ages  8<3du!t $24 

Adventure  Create  (CT)  ages  12  &  up  524 
HAYDEN  (ages  4-10) 

MIcroAddltion  (D&C) 520 

MlcroSubtraction  (D&C)  $20 

MfcroDivislon  (D&C) S20 

MtcroMultiplication  (D&C)  $20 

tyionkey  See-Spell  (D&C) $20 

AMERICAN  EDUCATIONAL  COMPUTER 
(DISK  ONIY) 

Leom  About  Sourvds  (grades  K.3) 539 

Wwds  In  Reading  I  (grodes  1-3) 539 

Wo(ds  in  Reading  II  (grades  1-3) 539 

Reoding  Compreti  I  (grades  (1-4)  ...  $37 

Reading  Compreti  II  (grodes  3-7) 537 

Redding  Compreh  III  (grades  6-8)  ...  537 

Vocobul  Word  Eider  (grodes  2-8) $29 

Grommer  Word  Skill  (grodes  2-8) $29 

US  Geogroptiy  Facts  (grades  2-8) ... .  529 

WSfId  Geogroptiy  (grades  2-6) $29 

Spanish  Vocabulory  (grades  2-8) $29 

l'!i.l.'.IJJJdlW^.M?U 

Spinnaker  Aerobics  (D)  $33 

CodeWritef  Dialog  (D) $45 

CocfeWriter  ELF  Eosy  Long.  Riim  (D) . .  $45 


Contir-ientol  Home  Accountant  (D)  . .  $47 

Continentol  Tax  Advantage  (D) 533 

Continental  FCM  Hrst  Class  Moil  $29 

Pnboll  Construction  Set  (D) $39 

M.U.L.E.(D) $39 

Worms?(D&C) 534 

Aichon  (D&C) $39 

Hord  Hat  Mock  (D&C) 534 

Murder  on  the  Zindemeuf  (D) $39 

The  Cut  &  Pas\&  Word  Processor  (D)  .  549 

DBug(D) 534 

Axis  Assassin  (D) $34 

Music  ConstTLiction  Set  (D) 539 


FREE  DISKETTE 
with  each  purchase  of 
Electronic  Arts  soflware 


COM  64  EXCLUSIVES! 

iJii^.lJ^^lilJlVMJ 

(Imowoiks  SwifTQK  (D) $39 

Creative  Household  finance  (D) $23 

Oealive  Household  Finance  (C) $19 

HesWare  Finance  iMonager  (D) $49 

Cordco  Tox  Survival  F^rom  (D)  $33 


WORD  PROCESStNG 


Cordco  \Vr.t@  Now!  (D) 539 

limsworks  Word  Writer  (D) 539 

On-Line  HomeWord  (D) $39 

Creative  Joe's  Writer  (D)  542 

HesWare  OmniWriter  &  Spell  (D) 549 

Blue  Sky  Script  64  &  Spell  (D) $49 

WordPro  3  Plus  SpellRight  (D) $49 

HesWare  Wultiplan  (D) $75 

HesWare  Omnicolc  (D) $37 

MSI  Proclicolc  (D&C) 535 

MSI  Picjgrammable  Spfeodsheet  (D) .  455 

Sim  Home  Cole  (D&C) $26 

OeativB  Jock's  Calc  (D) S42 

Handle  CqIc  Result  Advanced  (D) . . .  575 


CreotKre  Fred's  filer  (D)  $42 

TTmeWorks  Dota  Manager  (D&C)  ....  519 
TmeWOfks  Data  Manager  II  (D&C)  . .  $39 

CodeWrlter  Home  Filewriter  (D) $55 

Entecti  Data  Base  64  (D) 555 

IVISI  Proctifiie  (D) $39 


Cymbal  General  Ledger  (D) $45 

Cymbal  Accounts  Receivobi©  (D)  . , .  S45 

Cymbal  Accounts  Payable  (D) $45 

Cymbal  inventory  Control  (D) $45 

Cymbal  invoice  Writer  (D) $45 


HesWare  Hesmon  64  (CT) 524 

HesWare  M  Forth  (CT) $45 

Acess  Spritemaster  (D&C) $23 

Ti'mewks.  i>igramg.  Kit  I.  II.  Ill  (O&C)  M.  519 

Blue  Sky  LcBt  One  (D) $79 

Blue  Sky  80  Column  (D) $29 

Blue  Sky  Graphic  Designer  (D) $29 

Blue  Sky  64  Statistics  (D)  $29 

Blue  Sky  Super  Basic  (D) 529 

Blue  Sky  Add  On  Bask:  (D) $29 

Blue  Sky  Super  Copy  (D) $29 

HesWare  Grophics  Basic  (CT) S39 

HesWare  HES  CAT  (D) $19 

HesWare  HES  FONT  (CT) $16 

HesWare  HES  KIT  (CT)  S39 


HARDWARE 


SOFTWARE 


IH 


UNDESWARE 


rgyjiM4-i  Just  lor  Youl 

Acess  Beach  Head  (D&C) 523 

Avalon  Hill  TelsnGuard  (C) SIS 

Avolon  Hill  B-1  Bomber  (C) $12 

Creotlve*  Crisis  Mountain  (CT) 525 

Synapse  Sentinel  (D&C) 522 

Synapse  Z««ON  (D&C) $28 

Screenplay  Rago  Joe  (D&C) 519 

Screenplay  Asylum  (D&C) $23 

ScreenRay  K.  Uston  BlockJool!  (D)  . . .  $57 

Quick  Silw  Ring  Flower  (D&C) 423 

Quick  Silva  AquoFlone  (D) 523 

First  Star  Boulder  Dash  (D&C) 525 

VIC  20  HITS 

Creative  Home  Office  (D) 422 

Creative  Home  Office  (C) 519 

MSI  R'octicalc  nus  (D) S35 

MSI  Practicalc  Plus  (T) 533 

MSI  f^acticalo  (D) 532 

MSI  Practicalc  (T) 429 

HesWare  Vrc  Forth  (CT) 439 

HesWare  Hesmon  (CT) 424 

Cardco  Write  htow 527 

Epy!<  Fun  with  Art  (CT) 424 

Epyx  Fun  with  Music  (CT) 524 

KinderComp  (CT) $23 

Story  Machine  (CT) $23 

Face  Maker  (CT)  $23 

Kids  On  Keys  (CT) -. 423 

MphQbet  Zoo  (CT) 423 

HesWore  Turtle  Graphics  (CT) 424 

WizWore  Turtle  Tracks  (C) 419 

Creative  l3ioplifter  (CT) 419 

Epyx  Tempe  of  Apshai  (C) 424 

Sega  Corigo  Bongo  (CT) 425 

Sega  Star  Trek  (CT) 425 

PliRimiiRALS 

M;»J!lmO:ll.l 

CHALKBOARD  POWERPAD $79 

(C64&  Atari) 
Software  Packages 

Logic  Master $27 

Leo's  Unks $27 

Programmers  Kit $19 

Bearjam 425 

KOALAPAD  ATARI  C54 447 


TAXAN  12- Green 599 

TAXAN  12'  Amber 4109 

NEC  JB  1205  Amber $155 

Amdek  Color  I 5257 


PRINTERS 


NEC8023A 4379 

STAR  GEMINI  10X S257 

AajHA  COM  81 $149 

Coble  with  AlphoCom FBEE 

Ottidato  82A  5359 

OkidataS3A  4559 

Tronstor  1315  Color  $4i9 


The  Boss 414 

Bat  Stick  ,...  419 

Red  Ball 421 

Track  Ball $30 

3  Way  Grip 521 


MODEMS 


MONITORS 


BMC  13"  Corrposlte  Cckjr  Rus  4229 

BMC  12"  Low  Res  Green 455 

USI 1Z  Green  Hi-Hl  Res $129 

USI  12"  Amber  Hi-Hi  Res  5139 


Anchor  Mark  7  300  boud 4129 

(*5votion  J-Cat  300  baud 4119 

Commodore  1600  Mixlem ,  $55 

Commodore  1650  Auto  M 4155 

Numeric  Keypad  CM 537 

Graphic  Printer  Interface 469 

Economy  Printer  interface 539 

Commodore  64  5  Slot $49 

16K  Board 553 

Cassette  Interfoce $29 

DISK  DRIVES 

Rona1000  176K $329 

ConcorcJe  Master  1 76K 4329 

Concords  SlQve  176K $249 

Concorde  rvtaster  348K $359 

Concorde  Slave  346K $309 

Concorde  t/asler  1 74K $299 

Concorde  Master  348K 5349 

Crxnmodore  1541  1 74K 5269 

BLANK  DISKEHES 

MD1  SS  DD  Box  of  Ten 527 

MD2  DS  DD  Boi  of  Ten $40 

mmm 

ValuLlte  SS  DD  Sox  of  Ten $26 

ValuLite  DS  DD  Box  of  Ten $42 


$u<h  A  Peal 

12629  N.  latum  Blvd. 

Suite  138 

Phoenix,  AZ  S5032 


CALL  TOLL  FREE  1-800-431-8697/602-957-3619 

For  Customer  Service  Call:  602-955-3857 


ORDEf?tNG  &  TERMS.  Send  casfier  check.  tDoney  orcte:  persona  I /corrtpony  checks  QfiOw  3  weeks  bank  clearance.  VlSA/MasrefCord  occeptetJ  Provide 
pr*one  number  witn  order  SHiPPiNG:  Sattv.are  add  WOO foffiisr piece.  cKld  SI  00 each  oddiitona!  pece  Hardwafe  ody  3%  or  SlOOOv^ichevef  agiBOfef 
Refurra  mcst  have  authonzotion  number  (ccul  402-'56a-91 28  (or  oulhofization  number)  AJi  retar^d  rretchoraise  suC^ect  to  restocking  fee  arcf  must  come 
witTi  all  ordinal  pockoging.  No  retumsatloweo  after  30 doys  ^igm  shipping  dote  Prce*  cwfl  lorcatfi,  ViSA  and  MoitefCafdodd  3%  Pricas  subject  fochoni^ 
wiffiout  no'ice  fi}\  products  subject  fo  CJvOllc&ll^'  trom  rronufocturers  Ond/or  suppiien  fil\  prices  In  US  OoJlafS-  We  poy  sh^sptno  on  bockortJers. 


CLEAR  SCREEN 


CS 


COOO 
C002 


A9  93 

20    D2  FF 


LDA  #CH  ;LOADCLR/HOME 

JSR     CHROUT   ;  PUT  IT 


CHG  COLORS 


CC 


COOS 

C007 


A9  07 

SD  20 


COOA  A9  05 
COOC  8D  21 


COOF 

coil 


A9  01 
8D  86 


DO 


DO 


02 


LDA  #7 
STA    BCA 
LDA  #5 
STA    BCCA 
LDA  #1 
STA   CCA 


SET 

BORDER COLOR 

SET 

BACK  GROUND  COLOR 

SET 

CHARACTER  COLOR 


As  you  can  see,  the  documentation  is  extensive. 
The  program  is  placed  at  address  $C000,  the  spare 
RAM  block  in  high  memory. 

"CS  =  *"  means  "label  CS  is  this  point,"  or 
"CS  is  here";  it's  a  way  of  defining  symbolic  loca- 
tions so  that  they  stand  out.  Rasmussen  uses  this 
type  of  label  definition  extensively.  Placing  the 
label  on  the  next  program  line  will  work  just  as 
well;  to  save  space,  I'll  do  this  in  most  cases. 

Character  color  could  also  be  set  by  calling 
the  CHROUT  routine,  $FFD2,  with  the  appropri- 
ate ASCII  color  character  in  the  A  register. 

;  POSITION  CURSOR 


con  A2  03 

CO!  6  AO  00 

C018  18 

C019  20    FO   FF 


PC 


LDX 

#3 

;ROW  =  3 

LDY 

#0 

;  COLUMN  =  0 

CLC 

;AND 

JSR 

PLOT 

;  SET CURSOR 

I'd  just  as  soon  print  three  cursor-down  or  return 
characters. 


;  CLEAR  FILE  NAME  AREA 


COIC 

A9  00 

CFNA 

LDA 

#0 

;SET'A'=0 

COIE 

AA 

TAX 

;SET'X'  =  0 

COIF 

9D  40    03 

CFNL 

STA 

FNA,X 

;CLEAR  FILE  NAME 

C022 

ES 

INX 

;INCR  INDEX 

C023 

EO  15 

CPX 

#21 

;ISX  =  21  (16  +  4  +  1) 

C025 

FO   02 

BEQ 

PM 

;  IF  SO,  EXIT 

C027 

DO  F6 

BNE 

CFNL 

;  ELSE,  LOOP 

This  is  probably  overkill,  since  the  area  will  be 
filled  with  appropriate  characters  before  it  is  used, 
1  would  opt  for  insertion  of  a  prefix  "0:"  which 
here  would  appear  ahead  of  the  file  name.  Some- 
times the  disk  seems  to  work  better  if  drive  0  is 
explicitly  identified. 
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BNE  Alone  Also  Works 

I  would  have  put  the  BNE  ahead  of  the  BEQ.  Then 
I  would  have  dropped  the  BEQ  since  the  program 
would  proceed  to  the  next  statement,  PM,  anyway. 


PUT  MESSAGE 


C029  A2  F4 
C02B  AO  CO 
C02D  A9  35 
C02F   20    75    CI 

C032    4C  29    CI 


PM 


LDX  #ML 
LDY  #>IM 
LDA  #<IM 
JSR     PR 

JMP    CI 


;  LOAD  LENGTH 
;  LOAD  HI  BYTE 
;  LOAD LO BYTE 
;  PRINT  MSG 

;GOTO  GET  INPUT 


C035  12 
C036  20 
C050  OD 
C053  20 
C06C  OD 
C06F  20 
C081  OD 
C084  20 
C09E  OD 
COAl  20 
COBB  OD 
COBE  20 
CODS  OD 
CODE  20 
C0F5  OD 
C0F8  20 
ClOE   OD 

cm  20 

C126    OD 


C129 


INFORMATION  MESSAGE 


IM  .BYTES12 

20    4B  .ASCKEYINTHEFILENAMEOF" 

OD  12  .BYTE$OD,$0D,512 

20    54  .ASC'THEFILETOBECOPIED," 

OD  12  .BYTESOD,S0D,$12 

20   41  .ASC'ASN T-" 

OD  12  .BYTE50D,S0D,S12 

20   4E  .ASC"N  =  NAME,T  =  TYPE(PORS)" 

OD  12  .BYTES0D,S0D,S12 

20    4D  .ASC" MAXIMUM  NAME  =  16  BYTES' 

OD  12  .BYTESOD,S0D,S12 

20    4B  .ASC  "KEY  <RET>  WHEN  FINISHED." 

OD  12  .BYTES0D,S0D,$12 

20    49  .ASC  "IF  YOU  MAKE  A  MISTAKE;" 

OD  12  .BYTES0D,S0D,$12 

20    55  -ASC  "USE  THE  DELETE  KEY.  " 

OD  12  .BYTES0D,S0D,S12 

20   20  .ASC"CHEERS!!!" 

OD  OD  .BYTESOD,SOD,S0D 

ML        =     *-IM 


GET  INPUT 


GI 


Note  how  the  message  length  is  calculated 
automatically  by  the  assembler  (ML  =  *  -  IM).  The 
end  of  message  plus  one  {"here")  minus  the  start 
of  message  gives  the  length. 

Subroutine  PR  is  shown  later.  As  can  be  seen 
from  the  program  segment  above,  the  high  and 
low  parts  of  the  message  address  are  loaded  into 
registers  Y  and  A  respectively,  the  length  into 
register  X;  then  PR  is  called.  We'll  look  at  that 
subroutine  when  it  comes  up. 

An  Unusual  Place  For  Messages 

The  message  text  is  thrown  in-line  directly  behind 
the  program  segment  that  uses  it.  This  is  unusual: 
It's  more  common  for  all  text,  tables,  and  variables 
to  be  placed  at  the  end  of  the  program.  During 
the  program  development  phase  things  might  be 
out  of  order,  but  it's  usual  to  clean  that  up  later. 
No  big  deal:  It  costs  us  a  JMP  instruction  leap  over 


the  message  to  get  to  address  GI.  In  the  meantime, 
it's  convenient  for  us,  the  readers,  since  as  we 
read  the  code  which  prints  the  message,  the  mes- 
sage is  right  there  for  us  to  see. 

Rasmusscn  shows  exceptional  modesty.  Even 
though  the  ustM-  sees  a  lengtiiy  opening  message, 
the  author's  identity  is  not  included. 

Next  comes  a  "friendly"  input  routine: 


GET  INPUT 


The  X  counter  is  increased  and  we  return  to  get 
more  input.  It  would  be  safe  to  use  BNE  instead 
of  JMP  here,  since  X  will  always  be  nonzero. 


C156    20    D2  FF 
€159    20    D2  FF 


FILE  NAME  END 


FNE       JSR     CHROUT   ; DOUBLE 
JSR     CHROUT   ;  SPACE 


ADD  THE  REST  OF  THE 
FILE  NAME  FOR  WRITE  (  ,W  ] 


C129    A2  00  GI 

C12B   8E   A8  02    SI 


LDX   #0 
STX    SIV 


;  SET  INDEX  =  0 

:  STORE  INDEX  VALUE 


GET  NEXT  CHARACTER 


C12E   20    E4   FF    GNC      JSR     GETIN 


C131    FO   FB 

Ct33  AE  AS  02 
CI  36  C9  OD 
C138  FO  IC 
C13A  C9  14 
C13C  FO  03 
C13E   4C  4C  CI 


BEQ  GNC 
LDX  SIV 
CMP  #RK 
BEQ  FNE 
CMP  #DK 
BEQ  PDR 
JMP    Al 


,GETA CHARACTER 

;  IF  NONE,  TRY  AGAIN 

;LOAD  INDEX  VALUE 

;  IS  THIS  RETURN 

;KEY 

;[STHISDEL. 

;  KEY 

,  GOTO  ACCEPT  INPUT 


CISC 

C15E 

CI  61 

CI  62 

CI  64 

C167 

C168 

C16B 

C16C 

C16D 

C16F 

C172 


A9  2C 

9D  40   03 

E8 

A9  57 

9D  40    03 

E8 

8E   AB  02 

38 

8A 

E9   04 

8D  AA02 

4C  8A  CI 


LDA  #C 

STA    FNA,X 

INX 

LDA  #W 

STA   FNA,X 

INX 

STX    OFNL 

SEC 

TXA 

SBC    #4 

STA    IFNL 

JMP    DIOR 


LOAD AND 

STORE  COMMA 

INCR  POINTER 

LOAD AND 

STORE 'W' 

INCR  POINTER 

STORE  OUTPUT  FILE  NL 

SUBTRACT4 

FOR 

INPUT  FILE 

NAME  LENGTH 

GOTO  DISK  I/O  ROUTN 


We  look  for  a  character,  and  go  back  to  try 
again  if  no  character  is  there.  If  the  character  is 
RETURN  (RK),  we're  finished  and  go  to  FNE.  If 
it's  DELETE  (DK),  wo  go  the  special  delete  routine. 
Otherwise,  we  go  to  "accept  input."  The  Accept 
Input  (AI)  routine  could  have  been  inserted  at 
this  point  to  save  the  JMP  instruction. 

; PROCESS  DEL  REQUEST 


The  program  trusts  the  user  to  correctly  type 
in  a  name  such  as  DF1LE,S  or  LPROG,P,  It's 
dangerous  to  depend  upon  a  user  to  input  exactly 
the  right  thing:  At  the  very  least,  I'd  have  the 
program  check  that  the  last  two  characters  typed 
in  were  a  comma  followed  by  P  or  S, 

Indirect  Addressing 

Now  we  reach  the  print  subroutine  previously 
used  by  the  program. 


;  PRINT  ROUTINE 

C141    EO   00            PDR 

CPX    #0                 ;  INDEX  VS ZERO 

C143    FO    E6 
C145    CA 
CI  46    20    D2  FF 
C149    4C  2B  CI 

BEQ   SI                 ;  IF  SO,  BYPASS 

DEX                       ;DEL. 

JSR     CHROUT   ; CHARACTER 

JMP   SI                ;  GOTO  STORE  INDEX 

C175 
C178 
C17A 
C17C 

8E   A9  02 

85    22 
84    23 
AO  00 

PR 

STX 

STA 
STY 
LDY 

SLV 

LB 

HB 

#0 

STORE  LENGTH 
STORE LO BYTE 
STORE  HI  BYTE 

SET  INDEX  =  0 

X  counts  the  input  characters.  If  we  see  a 

C17E 

Bl   22 

PRL 

LDA 

(LB),Y 

GET CHARACTER 

DELETE  character 

,  we  must  decrease  X  provided 

C180 

20    D2  FF 

JSR 

CHROUT 

PUT  IT 

it's  greater  than  zero.  We  should  print  the  delete 
using  CHROUT  ($FFD2)  in  order  to  erase  the  pre- 
vious character  on  the  screen. 

C183 
C184 
C187 

CI  89 

C8 

CE  A9  02 

DO  F5 

60 

INY 
DEC 

BNE 
RTS 

SLV 
PRL 

INCR  INDEX 

DECR  LENGTH 

IF  NO!  0,  CARRY  ON 

RETURN 

ACCEPT  INPUT 


C14C  9D  40    03 

C14F  20    D2  FF 

C152  E8 

C153  4C  2B   CI 


Al 


STA 
JSR 

INX 
JMP 


FNA,X 
CHROUT 

SI 


STORE  FILENAME  BYTE 
PUT  IT 

INCRPOINTER 
GOTO  STORE  INDEX 


A  quite  straightforward  use  of  indirect  ad- 
dressing for  a  print  subroutine.  1  might  have  used 
CPY  SLV  instead  of  DEC  SLV,  but  it  works  out 
the  same. 


C18A  A9  00 


DIOR     =* 


An  Alternative  To  JI^P 

An  "ordinary"  character  is  stored  and  printed. 


In  the  next  session,  the  program  opens  the 
command  channel  and  an  input  data  file,  and 
reads  the  selected  file  into  memory.  We'll  continue 
with  critical  comments  on  this  program.  © 
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64  EXPLORER 


Lorry  Isaacs 


In  this  column  I  will  show  how  to  create  line 
drawings  on  a  bitmapped  display.  In  addition, 
we  will  look  at  an  example  written  in  BASIC  and 
begin  converting  it  to  machine  language  routines 
which  you  can  use  in  your  programs.  For  the  line- 
drawing  routine  to  be  really  effective,  conversion 
to  machine  language  is  required.  The  BASIC 
routine  is  much  too  slow. 

There  are  a  number  of  different  methods  for 
drawing  lines  in  machine  language.  One  way 
appeared  in  the  August  1981  issue  of  BYTE 
magazine.  In  the  article  (page  414),  Mike  Higgins 
presented  an  algorithm  which  requires  only  in- 
teger adds  and  subtracts  to  generate  the  point 
along  a  line  specified  by  two  end  points.  The  al- 
gorithm was  an  improvement  on  one  presented 
in  the  book  Principles  of  Interactive  Computer 
Graphics  by  Newman  and  Sproull,  which  is  widely 
known  in  the  field  of  computer  graphics. 

Basically,  the  method  involves  setting  up  a 
loop  which  will  compute  each  point  along  the 
line.  Since  we  would  expect  to  generate  one  point 
each  time  through  the  loop,  the  number  of  points 
in  the  line  gives  us  the  number  of  times  the  loop 
should  be  executed.  Remember  that  the  display 
coordinates  are  always  integer  values.  The  hori- 
zontal or  vertical  step  between  adjacent  dots  is 
always  1.  To  calculate  the  number  of  points  in  the 
line,  simply  take  the  absolute  value  of  the  larger 
of  the  differences  between  the  X  coordinates  and 
the  Y  coordinates. 

The  Primary  Axis 

To  identify  the  axis  with  the  larger  difference  in  a 
general  way,  we  will  call  it  the  primary  axis.  For 
example,  if  we  were  drawing  a  line  from  0,0  to 
100,50,  the  X  axis  has  the  larger  difference  and 
would  be  the  primary  axis.  The  number  of  points 
in  the  Hne,  after  plotting  the  first  one,  would 
be  100. 

Since  there  are  two  possibilities  for  the  pri- 
mary axis,  we  will  need  two  loops.  At  this  point, 
we  could  write  some  of  the  statements  that  will 
be  required  in  our  BASIC  line-drawing  routine: 

<plot  first  point> 

DX  s  XI  -  XO:DY  =  Yl  -  YO 

IF  ABS(DX)  <  ABS(DY)  THEN  <1> 

FORI  =  lTOABS(DX) 

NEXT 
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<l>FORI  =  lTOABS(DY) 


NEXT 


where  XO,  YO  is  the  starting  point,  XI, Yl  is  the 
ending  point,  and  <:1>  is  a  symbolic  replacement 
for  an  appropriate  line  number.  The  tirst  point 
must  be  plotted  first  since  the  loops  generate  suc- 
cessive points  based  on  the  preceding  one. 

Setting  Tlie  increment 

Since  the  number  of  points  is  equal  to  the  coordi- 
nate difference  on  the  primary  axis,  that  coordi- 
nate should  be  incremented  by  one  each  time 
through  the  loop.  The  coordinate  for  the  other 
axis,  which  has  a  smaller  difference,  is  in- 
cremented at  a  rate  smaller  than  one.  If  the  differ- 
ences along  each  axis  are  the  same,  either  axis  can 
be  used  as  the  primary  axis,  and  both  coordinates 
are  incremented  by  one  each  time  through  the  loop. 

The  next  step  in  implementing  our  drawing 
routine  is  to  come  up  with  a  method  of  properly 
incrementing  the  nonprimary  axis.  We'll  want  the 
loop  to  generate  integer  values  for  both  Y  and  X. 
The  loop  could  be  written: 

X  =  XO:Y  =  YO:SX  =  1:R  =  .5*SX 

FORI  =  1TOABS(DX) 

X  =  X  +  1 

R  =  R  +  DY/DX»SX 

IFR>=SXTHENY  =  Y-I-1:R  =  R-SX 

PLOTX,Y 

NEXT 

Easier  Conversion 

In  this  version  of  the  loop,  I  have  the  variable  SX 
to  show  where  the  X  increment  of  1  is  involved  in 
the  incrementing  of  Y.  The  variable  R  is  initialized 
to  .5  so  that  rounding  will  occur  as  it  is  in- 
cremented by  DY/DX.  It  is  also  important  to  note 
that  Y  will  be  properly  incremented  even  if  SX 
isn't  the  normal  value  of  1.  The  very  handy  im- 
provement Mike  Higgins  suggested  was,  in  effect, 
to  replace  SX  with  DX.  When  you  do  this,  note 
what  happens  to  the  loop. 

X  =  X0:Y  =  Y0:R  =  DX/2 

FORI^ITO  ABS(DX) 

X  =  X  +  1 

R=R+DY 

IFR>=DXTHEN  Y  =  Y  +  1:R  =  R-DX 

PLOT  X,Y 

NEXT 


Only  addition  and  subtraction  are  required  within 

the  loop,  making  it  much  more  suitable  for  con- 
version to  machine  language.  The  only  division  is 
a  division  by  2,  which  is  also  easily  done  in 
machine  language.  Naturally,  a  similar  loop  could 
be  written  to  handle  the  case  when  Y  is  the  primary 
axis. 

Now  that  we  have  a  routine  for  calculating 
the  points  along  a  line,  we  need  a  routine  to  plot 
these  points.  There  are  a  number  of  books  which 
discuss  this  in  detail:  the  Commodore  64  Pro- 
grammer's Reference  Guide,  and  two  recent  releases 
from  COMPUTE!,  COMPUTERS  Reference  Guide  to 
Commodore  64  Graphics  and  COMPUTEI's  First 
Book  of  Commodore  64  Sound  and  Graphics. 

The  Plotting  Routine 

Before  getting  into  a  short  discussion  of  the  point- 
plotting  routine,  we  will  have  to  decide  whether 
we  will  be  plotting  points  in  the  hi-res  bitmap 
mode  or  the  multicolor  bitmap  mode,  or  both.  To 
help  simplify  the  discussions,  I  will  be  looking  at 
just  the  hi-res  bitmap  mode.  In  next  month's 
column,  1  will  tie  up  loose  ends  from  this  article 
and  include  discussion  of  the  multicolor  mode. 

Briefly,  the  point-plotting  routine  must  calcu- 
late the  byte  address  and  the  bit  within  the  byte 
for  the  point  to  be  plotted.  The  address  of  the 
byte  will  be  dependent  on  the  location  of  the  bit- 
mapped graphics  RAM  and  the  X,Y  coordinates 
of  the  point.  Once  the  byte  and  bit  have  been 
identified,  there  are  three  things  we  can  do  with 
the  point. 

First,  we  can  set  the  bit  to  a  1,  causing  the 
point  on  the  screen  to  take  on  the  foreground 
color.  Second,  we  can  set  the  bit  to  a  0,  causing 
the  point  on  the  screen  to  take  on  the  background 
color.  This  is  equivalent  to  erasing  the  point. 
Third,  we  can  change  the  bit  to  the  opposite  of  its 
current  state.  This  is  called  "flipping"  the  point. 
Applying  these  to  line  drawing,  we  can  get  three 
drawing  modes,  DRAW,  ERASE,  and  FLIP. 

Erasing  With  FLiP 

For  those  who  have  not  encountered  FLIP  mode 
before,  it  has  a  couple  of  unique  properties.  First, 
lines  drawn  in  FLIP  mode  are  always  visible.  If  a 
line  is  drawn  through  an  area  that  is  already  set 
to  the  foreground  color,  you  can  still  see  the  path 
of  the  line  because  that  portion  of  the  line  will  be 
set  to  the  background  color.  Second,  if  a  line  drawn 
in  FLIP  mode  is  redrawn  in  FLIP  mode,  the  line 
will  be  erased.  The  screen  will  be  exactly  the  same 
as  if  the  line  had  never  been  drawn. 

The  disadvantage  of  FLIP  mode  is  that  gaps 
appear  where  lines  intersect.  FLIP  mode  is  prob- 
ably most  useful  when  the  object  being  drawn 
will  undergo  editing.  Once  the  editing  is  complete, 
the  screen  can  be  redrawn  in  the  normal  DRAW 


mode,  filling  the  gaps  in  the  lines. 

Also  described  in  the  books  mentioned  above 
are  the  details  on  how  to  initialize  the  bitmap  RAM 
and  the  associated  screen  memory.  Program  1 
illustrates  what  we  have  discussed  so  far.  There  is 
one  slight  addition  to  the  drawing  loop  which 
was  shown  last.  For  ERASE  and  FLIP  mode  draw- 
ing to  be  most  effective,  it  is  desirable  that  a  given 
line  be  drawn  the  same  way  regardless  of  which 
end  is  its  starting  point. 

To  this  end,  the  line-drawing  subroutine  at 
line  1000  always  draws  from  left  to  right.  The  X 
increment  will  always  be  -I- 1  with  the  Y  increment 
being  -(- 1  or  -1,  depending  on  the  sign  of  DY. 
Also,  the  point-plotting  routine  at  line  800  does 
not  handle  changing  the  foreground  or  back- 
ground colors  when  plotting  a  point.  This  could 
be  easily  added  if  desired.  Unfortunately,  chang- 
ing the  colors  for  one  point  changes  the  colors  foi: 
all  points  within  that  bitmap  cell. 

Selecting  The  Commands 

In  the  example  program,  the  drawing  mode  is 
specified  by  the  variable  M.  If  M  =  0,  ERASE  mode 
is  selected.  M  =  l  selects  DRAW  mode,  and  M  =  2 
selects  FLIP  mode.  The  main  routine  at  line  2000 
is  a  simple  loop  which  performs  commands 
specified  by  DATA  statements.  Each  command 
consists  of  a  command  number  followed  by  one 
or  two  argument  numbers.  A  command  number 
of  1  performs  a  move  to  the  X,  Y  coordinates 
specified  by  the  two  arguments  which  follow. 
Command  number  2  performs  a  draw  to  the  X,Y 
coordinates  specified  by  the  two  arguments  which 
follow. 

Command  number  3  sets  the  drawing  mode 
to  the  value  of  the  number  that  follows.  Command 
number  0  terminates  execution  of  the  commands. 
The  graphics  display  will  remain  on  the  screen 
until  a  key  is  pressed.  Running  this  example 
program  should  make  it  clear  that  BASIC  isn't 
suited  for  the  task  of  drawing  lines.  For  iterative 
tasks  which  require  many  calculations,  the  fact 
that  BASIC  is  interpreted  will  severely  slow  up 
the  task. 

Conversion  To  Machine  Language 

Now  we  are  ready  to  begin  the  conversion  to 
machine  language.  First  we  will  need  two  routines 
to  replace  the  BASIC  subroutines  at  lines  100  and 
900,  which  save  and  restore  the  text  screen,  re- 
spectively. These  will  be  called  SVSCRN  and 
RSSCRN.  Next  come  the  BASIC  subroutines  at 
lines  200,  300,  400,  and  700  which  set  up  the  bitmap 
display.  We  will  combine  these  into  a  single  routine 
called  GRSCRN  to  enable  the  graphics  screen. 

Since  we  are  working  with  machine  language, 
we  can  place  the  bitmapped  memory  under  the 
OS  ROM  and  screen  memory  just  below  where  the 
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DOS  Wedge  goes,  at  SEOOO  and  $C800,  respectively. 
This  way  no  user  memory  is  lost  from  BASIC. 
Also,  the  text  screen  will  not  be  disturbed  by  draw- 
ing in  the  graphics  screen.  A  slight  disadvantage 
of  this  arrangement  is  that  interrupts  must  be 
turned  off  while  the  OS  ROM  is  disabled.  This 
will  cause  the  64  clock  timer  to  be  slightly  off. 

The  final  routine  we  will  look  at  this  month 
will  be  the  one  which  clears  the  bitmap  and  screen 
memories.  This  will  replace  the  BASIC  subroutines 
at  lines  500  and  600  and  will  be  called  CLRSCR. 
Actually,  this  routine  will  rely  on  another  routine 
called  FILL  to  do  the  clearing.  Rather  than  fetch 
arguments  from  BASIC,  this  routine  fills  the  screen 
memory  with  a  constant.  This  constant  sets  the 
background  to  white  and  the  foreground  to  red. 
Next  month  we'll  upgrade  this  routine  to  accept 
arguments  specifying  the  colors. 

The  result  of  this  set  of  machine  language 
routines  is  shown  in  Program  2.  As  written, 
these  routines  would  assemble  at  location  SCOOO. 
Like  the  location  of  the  graphics  RAM,  this 
doesn't  reduce  BASIC  user  RAM.  It  also  won't 
interfere  with  the  DOS  Wedge.  This  may  conflict 
with  some  other  machine  language  routines  you 
find  handy,  but  finding  locations  which  don't 
conflict  has  become  impossible. 

A  Jump  Table 

There  are  a  couple  of  things  worth  noting  in  the 


Here  comes  the  new  generation  of  SM's 


program  series  for  the  64, 


'yblKIT64 

The  famous  programming  tool  with  powerful  basic  extentions 

like  merge,  find,  renumber,  dump,  trace,  enhanced 

(loppy-monitor  (disc-doctor)  and  high  efficient  machine-language 

monitor  with  built-in  assembler,  diassembler,  trace  and  lots 

of  more  helpful  feBtures-realJy  a  golden  tool! 


PLACE  VOUR  CHECK  OR  MONEY  ORDER  NOW! 


SM  SOFTWARE  INC.   2B2  Bethlehem  Pike    Colmar.  PA  18915 


Here  comes  the  new  generation  ot  SM's 


yhlTEXT64 


The  professional  wordprocessor  with  n^ore  than  SO  functions 

like  multi-color  selection,  up  to  120  columns/line  without 

additional  hardware,  find  Et  replace,  enhanced  blockhandling, 

direct -access  to  SM-ADREVA-files,  and  all 

the  other  usual  faatures- 


PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 
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machine  language  listing.  First,  a  jump  table  is 
placed  at  the  beginning.  This  table  will  contain 
JMP  instructions  to  each  of  the  routines  that  will 
be  called  from  BASIC.  Even  though  the  starting 
locations  of  the  various  routines  may  change,  the 
jump  table  and  the  locations  to  SYS  to  will  stay 
put.  To  call  one  of  the  routines  from  BASIC,  simply 
set  a  variable  equal  to  $C000  (49152),  then  SYS  to 
this  variable  plus  the  appropriate  offset.  For 
example:  TB  =  49152:SYS  TB  +  9  would  call  the 
CLRSCR  routine. 

Second,  you  may  want  to  take  a  look  at  the 
FILL  routine.  Its  function  is  to  fill  an  area  of  mem- 
ory with  a  specified  byte.  This  function  could 
have  been  implemented  a  number  of  different 
ways.  For  example,  it  could  have  been  written  a 
little  more  simply  by  using  a  single  loop.  Instead  I 
implemented  it  using  two  loops,  one  to  fill  whole 
pages  (groups  of  256  bytes)  and  the  other  to  fill 
the  final  partial  page.  By  doing  this,  the  core  loops 
can  be  written  with  just  STA,  INY,  and  BNE  in- 
structions, making  them  very  fast.  It  would  be 
difficult  to  make  the  routine  much  faster  without 
increasing  its  size  quite  a  bit  and  making  it  more 
complex. 

When  implementing  almost  any  routine,  you 
will  usually  be  faced  with  trade-offs  between  size, 
simplicity,  and  speed.  Here  I  tried  to  maximize 
speed  without  sacrificing  size  and  simplicity  too 


much. 

Next  month  we'll  continue  with  the  conver- 
sions of  the  point-plotting  and  line-drawing 
routines,  and  look  into  the  multicolor  bitmap 
mode.  I  want  to  provide  information  you  can  put 
to  some  use.  Please  write  me  with  any  comments 
or  suggestions  concerning  topics  you  would  like 
to  see  discussed. 

Program  1:  basic  Drawing  Program 


10 

20 
30 
40 

50 

100 

110 

120 

130 

140 

200 

210 


REM  DRAW  PROGRAM  :rem  139 

V1=56576:V2=53272:V3=53265  t rem  58 
M(7)=1:M(6)=2:M{5)=4:M(4)=B  : rem  34 
MC3)=16:M(2)=32:M(1)=64!M(0)=128 


GOTO  2000 
REM  SAVE  DISPLAY  BYTES 
Sl=PEEK(Vl) 
S2=PEEK(V2) 
S3=PEEK(V3) 
RETURN 

REM  SET  GRAPHICS  RAM  BANK 
REM  BASED  ON  BITMAP  ADDRESS, 


220 
230 

240 
300 
310 

320 

330 


T=INT(BA/16384) :T=3-T 

POKE  VI, {PEEK(V1)AND252)0R  T 

RETURN 

REM  SET  BITMAP  8K  OFFSET 

REM  BASED  ON  BITMAP  ADDRESS, 


T=BA:IF  T> 32767  THEN  T=T- 
T=  -( (T  AND  8192)  <>  0) 


:rem  21 
:reni  96 
:rem  55 
;rem  80 
:reni  83 
:rem   85 

:  rem    H7 

: rem    175 

BA 

:retn    229 

i  rem  15  2 
:rem   38 

:rem    118 

:rem    106 

BA 

: rem  230 
65536: rem   87 

: rem   155 


program  series  for  the  64. 

'■'/bllSM64 

This  Index-sequential  file  manager  gives  you  a  new  dimension 

on  direct  access  files.  Up  to  40  keys,  various  length  for  each 

record  and  up  to  10  files  can  be  handled  at  the 

same  time  by  this  sophisticated  module.  How  could  your 

programs  survive  without  SM-ISM? 

—  PLACE  YOUR  CHECK  OR  MONEV  ORDER  NOW ! 
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J^ADREVA  64 

Your  personal  professional  address-file-system,  lip  to  620 
addresses  per  disc  in  direct  access.  Including  5  extra  lines  for 

individual  text/record.  Totally  menue-driven.  ^^^^^^^ 

Powerful  editing  and  back-up  facilities.     f„m^  S^^j 

Several  fiardcopy  features. 
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340 

350 
400 
410 
420 
430 
440 

450 
500 
510 
520 
530 
600 
610 
620 
630 
640 
650 
700 
710 
720 
800 

810 

820 
830 
840 
850 

860 

870 


irem  120 
:  rem  131 


POKE  V2, (PEEK(V2)AND247)OR  (T*8) 

:rem  225 
RETURN 

REM  SET  COLOR  MEMORY  OFFSET 
REM  BASE  ON  COLOR  ADDRESS,  CA:rem  102 
T=INT(CA/16384) :T=CA-T*16384  : rem  28 
T=INT(T/1024)  :rem  174 

POKE  V2, (PEEK(V2)AND15)OR  (T*16) 

:rera  218 
RETURN  trem  121 

REM  CLEAR  BITMAP  MEMORY  : rem  118 
FOR  A=BA  TO  BA+7999  : rem  177 

POKE  A,0:NEXT  : rem  220 

RETURN  :rem  120 

REM  CLEAR  SCREEN  MEMORY  : rem  122 
REM  FC=ON  COLOR,  BC=OFF  COLOR: rem  165 
T=FC*16+BC  :rem  243 

FOR  A=CA  TO  CA-^999  :  rem  127 

POKE  A, T: NEXT  : rem  3 

RETURN  :rem  123 

REM  ENABLE  BITMAP  GRAPHICS  trem  48 
POKE  V3,PEEK{V3)  OR  32  ; rem  129 
RETURN  :rem  121 

REM  PLOT  POINT  X,Y  WITH  MODE  M 

:rem  208 
TY=199-Y:R0=INT(TY/8) !C0=INT(X/8) 

:rem  24 
YB=TY  AND  7:XB=X  AND  7  : rem  156 
A=BA+RO*320-l-CO*8+YB  ;  rem  12 

B=PEEK(A)  : rem  210 

IF  M=l  THEN  POKE  A,B  OR  M(XB): RETURN 

:rem  231 
IF  M=0  THEN  POKE  A,B  AND  (255-M{XB))l 
RETURN  :rem  51 

IF  B  AND  M(XB)  THEN  POKE  A,B-M(XB):RE 
TURN  :rem  7 
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880 

900 

910 

920 

930 

940 

1000 

1010 

1020 

1030 
1040 
1050 
1200 

X210 

1220 
1230 
1240 
1250 
1260 

1300 

1310 

1320 
1330 

1340 
1350 
1360 

2000 

2010 

2020 

2030 
2040 

2050 
2060 
2070 

2100 
2110 

2120 
2130 
2140 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2300 
2310 

2400 
24X0 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 


POKE  A,B  OR  M(XB): RETURN      ; rem  113 
REM  RESTORE  DISPLAY  : rem  183 

POKE  VI, SI  ;rera  0 

POKE  V2,S2  :rem  3 

POKE  V3,S3  srem  6 

RETURN  :rem  125 

REM  THE  LINE  DRAWING  ROUTINE: rem  224 
REM  DRAWS  FROM  X0,Y0  TO  XI, Yl 

:rem  122 
DX=ABS(X1-X0) :DY=ABS(Y1-Y0)  : rem  124 
IF  DX=0  AND  DY=0  THEN  RETURN  : rem  72 

trem  205 
:rem  189 
IY=-IY 

; rem  46 
:rem  162 
:rem  162 
:rem  242 
trem  142 
I  rem  89 
;rem  187 


X=X0 : Y=Y0 : IY=SGN ( Y1-Y0 } 

IF  DX  <  DY  THEN  1300 

IF  X1<X0  THEN  X=XI:Y=Yl! 


GOSUB  800:R=DX/2 

FOR  1=1  TO  DX 

X=X+1 :R=R+DY 

IF  R>=DX  THEN  Y=Y+IY!R=R-DX 

GOSUB  800; NEXT 

X0=X1 I Y0=Y1 ! RETURN 

IF  Y1<Y0  THEN  X=X1 : Y=Y1 : IY=-IY 

; rem  49 
GOSUB  800:R=DY/2  j rem  164 

FOR  1=1  TO  DY  :rem  164 

Y=Y+IY:R=R+DX  : rem  101 

IF  R>=DY  THEN  X=X+1:R=R-DY    : rem  30 
GOSUB  800: NEXT  : rem  90 

X0=X1:Y0=Y1: RETURN  :rem  188 

REM  THE  MAIN  ROUTINE         srem  210 

BA=16384 !CA=BA+8192 : FC=2 : BC=1 :M=1 

:  rem  90 
GOSUB  100;GOSUB  200:GOSUB  300 

:rem  110 
GOSUB  400: GOSUB  700  : rem  42 

GOSUB  600: REM  CLEAR  COLOR  MEM 

:rem  191 
GOSUB  500: REM  CLEAR  BITMAP  : rem  30 
REM  LOOP  DRAWING  DATA  : rem  12 
READ  S:ON  S  GOTO  2200,2300,2400 

:rem  66 
REM  END  PROGRAM  :rem  150 

GET  Z$:REM  CLEAR  KEYBOARD  QUE 

:re!ti  227 
IF  Z$<>""  THEN  2110  :rem  131 
GET  Z$:IF  Z$=""  THEN  2130  trem  225 
GOSUB  900: END  : rem  241 

REM  MOVE  :rem  223 

READ  X0,Y0:GOTO  2060  : rem  89 

X=X+IX:R=R+DY  : rem  98 

IF  R>=DX  THEN  Y=Y+IYsR=R-DX  :rem  142 
GOSUB  800  :rem  224 

NEXT  trem  8 

X0=XI:Y0=Y1: RETURN  :rem  188 

REM  DRAW  trem  215 

READ  XI, Yl: GOSUB  1000: GOTO  2060 

trem  215 
REM  SET  MODE  trem  187 

READ  MtGOTO  2060  srem  107 

DATA  3,2  trem  110 

DATA  1,50, 50  : rem  49 

DATA  2,100,100  srem  139 

DATA  1,50,100  trem  95 

DATA  2, 100,50  trem  97 

DATA  2,100,100  trem  142 

DATA  2,50,100  trem  99 

DATA  2,50,50  srem  56 

DATA  2,100,50  trem  101 

DATA  2,50,100  srem  102 

DATA  0  t  rem  14 


Program  2: 

Machine  Language  Drawing  Routines 

MACHINE  LANGUAGE  DRAWING  ROUTINES 


EQUATES 

TIMACT  = 

MEMCTL  = 

VICCTL  = 

VICMCT  = 
BHBASE 

BMOFFS  = 

SMBASE  = 

SMOFFS  = 

BMMODE  = 


5DC0E  ; TIMER  A  CONTROL 

$DD00  rC64  MEMORY  CONTROL 

$D011  ;VIC  CONTROL  REGISTER 

$D018  ;VIC  MEMORY  CONTROL 

$E000  ; BIT-MAP  BASE 

$08  ?8K  OFFSET  BYTE 

50800  ; SCREEN  MEMORY  BASE 

920  ; SCREEN  MEMORY  OFFSET 

$20  ; BIT-MAP  ENABLE  BIT 


PAGE  ZERO  EQUATES 

ROMCTL   =  $1   ;ROH  CONTROL  REGISTER 
TMPl     =  $FB  ;TEHP  1 
TMP2     =  ?FD  ;TEMP  2 

JUMP  TABLE 


*=  $C000 
JMP  SVSCRN 
JMP  RSSCRN 
JMP  GRSCRN 
JMP  CLRSCR 

LOCAL  STORAGE 


rSAVE  SCREEN  FARMS 
; RESTORE  FARMS 
r ENABLE  GRAPHICS 
;CLEAR  GR.  SCREEN 


51  .BYTE  0  ;SAVE  MEMCTL 

52  .BYTE  0  ;SAVE  VICMCT 

53  .BYTE  0  ;SAVE  VICCTL 

SAVE  SCREEN  FARMS 


SVSCRN 


LDA  MEMCTL 
STA  SI 
LDA  VICMCT 
STA  S2 
LDA  VICCTL 
STA  S3 
RTS 


RESTORE  SAVED  SCREEN  PARMS 


RSSCRN 


LDA  SI 
STA  MEMCTL 
LDA  S2 
STA  VICMCT 
LDA  S3 
STA  VICCTL 
RTS 


ENABLE  GRAPHICS  SCREEN 


GRSCRN   LDA  MEMCTL 
ORA  #503 

EOR  #BMBASE/54000 
STA  MEMCTL 
LDA  VICMCT 
AND  #507 
ORA  #BMOFFS 
ORA  #SMOFFS 
STA  VICMCT 
LDA  VICCTL 
ORA  #BMMODE 
STA  VICCTL 


?SET  GRAPHICS  BANK 


;SET  OFFSETS 
; CLEAR  OLD  BITS 
;SET  BIT-MAP  OFFSET 
;SET  SCREEN  OFFSET 

; ENABLE    BIT-MAP 
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RTS 

SUBROUTINE:  TURN  OS  ROM  OFF 

OSOFF    PHA 

LDA  TIMACT  ;TURN  OF  IRQ ' S 

AND  #SFE 

STA  TIMACT 

LDA  ROMCTL 

AND  #$FD 

STA  ROMCTL 

PLA 

RTS 


SUBROUTINE:  TURN  BASIC  ROM  ON 


LDA  #>8000 
STA  TMP2+1 
LDA  #0 
JSR  OSOFF 
JSR  FILL 
JMP  OSON 

•  END 


TURN    OS    ROM    OFF 

CLEAR 

TURN    OS    ROM   ON 

AND    RETURN 


o 


rTURN    OF    OS    ROM 


COMPUTE! 

The  Resource 


;TURN  ON  OS  ROM 


r ENABLE  IRQ'S 


OSON     PHA 

LDA  ROMCTL 
ORA  #?02 
STA  ROMCTL 
LDA  TIMACT 
ORA  #?01 
STA  TIMACT 
PLA 
RTS 


SUBROUTINE:  FILL  AN  AREA  OF  MEMORY 

ON  ENTRY:  A=  FILL  BYTE 
TMPl  =  POINTER  TO  AREA 
TMP2  =  #  BYTES  TO  FILL 

ON  RETURN:  A  AND  X  PRESERVED. 
Y,  THPl,  AND  TMP2  CLOBBERED. 


MEMOREX 

FLEXIBLE  DISCS 

WE  WILL  NOT  BE  UNDER- 
SOLOn  Call  Free  (800)235-4137 

for  prices  and  informatioa  Dealer 
inquiries  invited  and  CO  D's 
accepted 


PACIFIC 
EXCHANGES 

100  Foothill  Blvd. 
San  Luis  Obispo,  CA 
9340L  InCal.cal! 
(800)  592-5935  or 
(805)  543-1037 


FILL 

LD-i: 

TMP2+1  ;FILL  WHOLE  PAGES 

BEQ 

FILL3   rBR  IF  NONE 

FILLl 

LDY  #0 

FILL2 

STA  (TMP1),Y 

INY 

BNE 

FILL2 

INC 

TMPl-H  f INCREMENT  POINTER 

DEC 

TMP2+1  ; DECREMENT  #  PAGES 

BNE 

FILLl   ;BR  IF  MORE  PAGES 

FILL3 

LDY  TMP2    -CHECK  PARTIAL  PAGE 

BEQ 

FILL6   ;BR  IF  DONE 

DEY 

; CLEAR  PARTIAL  PAGE 

BEQ 

FILLS   ;G0  CLEAR  LAST  BYTE 

FILL4 

STA  (TMP1),Y 

DEY 

BNE 

FILL4 

FILLS 

STA  (THP1),Y  ;THE  LAST  BYTE' 

FILLS 

RTS 

;  CLEAR  BIT-MAP  AND  SCREEN  MEMORY 

CLRSCR 

LDA  #<SMBASE  r CLEAR  SCREEN  MEM 

STA 

TMPl 

LDA 

#>SMBASE 

STA 

TMPl+1 

LDA 

#<1000  ,-1000  BYTES 

STA 

TMP2 

LDA 

#>1000 

STA 

TMP2+1 

LDA 

#$21    fGET  COLORS 

JSR 

FILL 

LDA 

#<BMBASE  rCLEAR  BIT -MAP 

STA 

TMPl 

LDA 

#>BMBASE 

STA 

TMPl+1 

LDA 

#<8000  ,-8000  BYTES 

STA 

TMP2 
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INSIGHT:  Atari 


Bill  Wilkinson 


Well,  here  it  is  April  again.  Those  of  you  who 
read  my  April  column  last  year  may  recall  that  I 
devoted  much  of  my  space  to  an  April  Fool  an- 
nouncement of  the  "new  Atari  COBOL."  Would 
it  surprise  you  to  learn  that  this  year  I  will  also 
"announce"  some  new  products  from  Atari? 

We're  going  to  be  exploring  some  medium 
hefty  programming  logic  (in  machine  language) 
next  month:  How  to  use  your  1050  disk  drive  in 
enhanced  density  with  Atari  DOS  2.0s.  For  now, 
though,  let's  plunge  into  some  wild  speculations, 
rumors,  and  April  fun. 

Incredible  Integration 

Since  last  year's  April  announcement  was  about 
some  literally  unbelievable  software,  it  seems 
only  fitting  that  this  year  we  make  a  hardware 
announcement  that's  almost  as  doubt-provoking. 

By  the  time  you  read  this  article,  Atari  will  be 
shipping  at  least  the  first  two  of  three  magnificent 
new  machines.  These  machines,  while  maintain- 
ing almost  full  compatibility  with  existing  Atari 
hardware  and  software,  add  the  full  power  of  an 
intelligent  peripheral  expansion  bus.  Imagine  an 
Atari  computer  hooked  up  to  a  5-  or  10-niegabyte 
hard  disk  drive,  a  true  parallel  printer  interface, 
a  high-speed  modem,  and  maybe  even  a  CP/M 
emulation  package. 

I  mean,  we're  talking  about  possibly  moving 
data  to  and  from  a  disk  drive  at  30,000  to  60,000 
bytes  per  second!  Imagine  taking  less  than  tw^o 
seconds  to  load  the  largest  possible  programs. 
And  perhaps  talking  via  a  serial  interface  (or,  bet- 
ter yet,  a  local  network)  to  one  or  more  other  com- 
puters at  the  same  time — at  data  rates  perhaps 
three  to  ten  times  what  an  850  Interface  Module  is 
capable  of. 

Software  Compatibility,  Too 

Of  course,  if  you  are  a  reaUst,  you  will  say,  "Okay 
for  the  hardware.  But  what  about  software  and 
software  compatibility?"  Would  you  settle  for  a 
smart  peripheral  bus  that  intercepts  the  OS  (CIO) 
if  you  are  trying  to  do  I/O  via  the  old  serial  bus. 
You  know,  the  cable  that  links  your  400/800/1200 
to  the  disk,  printer,  etc.?  Could  you  accept  the 
fact  that  it  checks  to  see  if  you  have  (for  example), 
moved  "Dl:"  to  your  hard  disk  drive  and  sends 
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the  request  there  instead  of  to  your  810?  All 
automatically? 

Not  enough?  How  about  if  these  new 
machines  even  provided  ways  for  third-party 
hardware  vendors  to  add  their  own  boards  and 
automatically  link  in  device  handlers  for  them? 
Imagine  a  music  synthesizer  accessed  as  simply 
"M:",  thus  easily  callable  from  even  Atari  BASIC. 
Could  uni/  computer  manufacturer  possibly  design 
such  a  well-integrated  system? 

How  about  if  the  new  machines  even  came 
with  a  faster  math  package,  so  that  they  were  the 
fastest  computers  in  the  home  computer  market- 
place? (I  choose  to  define  a  home  computer  as 
one  which  costs  less  than  $1000,  including  at  least 
a  disk  drive.) 

April  Fool 

Well,  you  knew  it  couldn't  last,  didn't  you?  Sigh. 
But  it  was  nice  to  dream  for  a  paragraph  or  two, 
wasn't  it?  Now,  are  you  readv  for  the  bitter  reality? 

Surprise!  This  is  my  April  Fool  gag  for  this 
year:  Almost  everything  you  just  read  about 
the  new  machines  is  the  absolute  truth.  Honest. 
No  gag. 

In  fact,  as  I  write  this  article  in  January,  the 
machines  I  have  described  to  you  are  arriving  in 
stores  by  the  truckfuls.  And  why,  you  ask,  haven't 
you  seen  these  wonder  computers  advertised?  Ah, 
but  you  have.  They  are  called  the  600XL  and  the 
800XL  (with  big  brother  1450XLD  still  to  come). 
But  if  all  I  claimed  is  true,  why  hasn't  Atari  pro- 
claimed it  to  the  computer  world  as  the  greatest 
advance  ever  in  home  computers?  Now  there  is 
the  April  Fool  question. 

If  Atari  can  solve  some  advertising  and  deliv- 
ery problems,  I  think  you  will  see  a  wealth  of 
capabilities  added  to  the  new  XL  machines  second 
only  to  the  selection  available  to  Apple  I!  owners. 

Oh,  yes.  I  did  throw  one  April  Fool  joke 
into  the  description  above.  Can  you  guess  what 
it  is? 

Final  Foolishness 

The  descriptions  of  the  Atari  super  machines  were 
accurate  except  for  one  April  Fool  joke.  Sigh.  Un- 
fortunately, the  part  about  the  advanced,  fast 
BASIC  being  built-in  is  still  just  a  dream.  © 


PROGRAMMING  THE  Tl 


C  Regena 


Part  2:  File  Processing 


I  have  had  lots  of  requests  for  programs  that 
use  TI  Extended  BASIC  and  peripherals  (printers, 
the  RS'232  interface,  and  disk  drives).  In  these 
next  two  columns  I  will  tr\'  to  satisfv  those  readers, 
plus  the  readers  who  have  requested  file  proc- 
essing, by  discussing  a  report  writer  that  uses' 
disk  files  and  a  printer. 

Keep  in  mind  that  there  are  many  ways  to 
program  (as  many  ways  as  there  are  program- 
mers). I'm  going  to  show  you  one  method  1  use  to 
set  up  a  file,  then  generate  several  reports  from 
that  file.  For  an  example,  I'm  going  to  use  a 
hypothetical  situation — a  teacher  has  divided  the 
class  into  three  reading  groups.  The  students  are 
given  the  goal  of  presenting  one  oral  book  report 
each  week  of  the  term  (for  this  example  the  term 
is  ten  weeks).  The  teacher  will  grade  the  students 
on  how  well  the  goal  is  attained.  These  reports 
keep  a  tally  of  the  book  presentations.  As  part  of 
the  necessarv  school  paperwork,  the  teacher  also 
needs  to  keep  track  of  each  student's  address  and 
phone  number.  As  a  personal  touch,  the  teacher 
also  wants  to  be  able  to  acknowledge  the  students 
on  their  birthdays.  We'll  get  to  these  last  two  pro- 
grams next  month. 

Writing  A  Data  File 

First,  a  data  file  is  set  up  using  Program  1.  The 
student  information  is  listed  in  DATA  statements 
within  this  program,  and  the  program  will  gener- 
ate a  data  file  on  diskette.  You  could  use  DATA 
statements  within  a  regular  program  which  also 
writes  the  report,  but  with  many  students  a  short- 
age of  computer  memory  could  be  a  problem. 
Also,  I'm  going  to  use  this  data  for  several  pro- 
grams, and  I'll  only  have  to  type  it  once — in  this 
data  file  generator  program.  All  reports  will  use 
this  one  data  file. 

Program  1  READs  the  information  in  from 
DATA  statements,  then  writes  it  directly  out  on  a 
disk  file.  Line  130  is  the  key  statement  to  set  up 
the  disk  svstem  for  storing  the  data.  The  OPEN 
statement  says  device  #3  (you  can  use  any 
number)  is  disk  drive  number  one,  and  the  file  of 
data  will  be  called  SAMPLE.  The  data  will  be 
stored  in  internal  format  as  output  and  can  have  a 
variable  length  of  192. 


To  use  this  program  with  cassette  instead  of 
diskette,  use  this  line: 

130  OPEN  #3:  "CSl" ,  INTERNAL, OUTPUT, F 
IXED  192 

In  later  programs  change  any  DSKl  and  titles  to 
CSl  within  quotes,  and  change  the  VARIABLE  to 
FIXED  since  cassettes  can  handle  only  FIXED- 
length  files. 

Reading  Tlie  Data 

Line  140  reads  the  data  in  the  following  order  for 

our  situation:  group  G,  last  name  N$,  first  name 
F$,  address  AS,  phone  number  P$,  birthday  ex- 
pressed as  a  number  BD,  report  R$,  and  comments 
CS.  Line  150  prints  the  same  information  onto  the 
diskette.  Lines  160-180  stop  the  process  if  the 
name  read  is  "ZZZ",  which  indicates  the  end  of 
the  file.  Line  170  counts  the  names. 

Lines  190-490  contain  the  data.  Notice  that 
the  last  DATA  statement  contains  "ZZZ"  for  N$, 
the  last  name.  These  names  are  sample  names 
onlv  and  are  not  meant  to  represent  any  real 
people.  The  other  information  is  also  made  up  for 
purposes  of  illustration.  The  DATA  statements 
are  in  order  by  last  name. 

The  first  number  in  the  DATA  statement  is  a 
group  number — the  sample  class  is  divided  into 
three  reading  groups.  We're  assuming  the  stu- 
dents all  live  in  the  same  city,  so  only  the  street 
address  is  stored  as  A$.  The  phone  number  P$  is 
stored  as  a  four-digit  number  because  they  all 
have  the  same  prefix.  You  can  change  this  if  you 
wish.  Since  the  variable  name  is  P$,  you  may  in- 
clude a  hyphen  in  the  phone  number.  The  birth- 
day BD  is  expressed  as  a  number  which  consists 
of  the  month  number  then  two  digits  representing 
the  day  number.  For  example,  September  24  is 
month  9  and  day  24  for  924.  November  25  is  1125. 
October  5  is  1005  for  month  10  and  day  05. 

Encode  The  Special  Cases 

The  next  series  of  numbers  represents  whether 
the  student  presented  a  book  report  or  not.  I  com- 
bined all  the  weeks  into  one  ten-digit  number.  A 
1  means  the  student  gave  a  report  that  week  and 
0  means  he  or  she  did  not.  A  dash  means  the  stu- 
dent was  not  enrolled.  You  may  have  a  report 
that  uses  other  symbols  for  other  purposes — an 
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asterisk  for  a  different  assignment,  for  example. 

The  comments  C$  are  just  to  illustrate  more  ver- 
satility in  later  reports.  I  used  AUDIT  to  represent 
a  student  who  will  not  be  counted  for  credit,  and 
MOVED  indicates  the  student  is  no  longer  in  the 
class. 

To  try  the  sample  programs  this  month,  start 
with  a  new  initialized  diskette.  Type  in  Program  1 
then  save  it  with  a  command  such  as  SAVE 
DSKl.LISTl  or  SAVE  DSKl. NAMES  or  whatever 
label  you  wish.  Next  RUN  this  program  with  the 
diskette  in  the  disk  drive.  The  drive  light  will  blink 
on  and  off  as  data  is  being  recorded.  The  screen 
shows  how  many  names  have  been  processed. 
This  program  only  sets  up  the  data  files — it  does 
not  write  any  reports. 

Generating  A  Roster 

Now  go  on  to  Program  2.  This  program  will  read 
information  from  the  data  file  we  created  previ- 
ously with  Program  1  and  print  out  a  roster  of 
information — the  student,  which  group  the  stu- 
dent is  in,  the  address,  the  phone,  the  birthdate, 
and  any  comments. 

Lines  130-150  contain  a  procedure  that  reads 
the  month  names,  which  are  later  used  in  printing 
the  birthdays.  Line  160  initializes  some  variables. 
Note  that  Extended  BASIC  allows  several  variables 
at  once  to  be  set  equal  to  zero.  The  variable  I  is 
used  to  count  the  total  number  of  names.  N  is  the 
number  of  auditing  students,  and  MM  is  the 
number  of  students  who  have  moved.  L  is  a  line 
counter. 

Printer  Features 

My  printer  has  a  feature  that  will  skip  over  perfo- 
rations at  the  end  of  a  page.  In  case  your  printer 
does  not  automatically  do  that,  1  have  included 
this  method.  L  is  used  to  count  the  lines  that  have 
been  printed.  Line  360  can  then  check  to  see  if  it 
is  time  to  change  pages.  PRlNTing  CHRS(12)  goes 
to  the  top  of  a  new  page.  If  your  printer  cannot 
PRINT  CHRS(12),  you  can  put  in  a  pause  so  you 
can  reset  to  the  top  of  a  new  page.  (The  sample 
data  included  here  does  not  go  more  than  one 
page.  Add  more  names  if  you  want  to  see  this 
part  work.) 

Line  180  defines  the  printer  configuration  for 
device  #2  (use  any  device  number).  Use  the 
parameters  you  need  for  vour  particular  printer. 
Consult  the  RS-232  manual  and  your  printer  man- 
ual to  figure  out  vour  configuration.  Line  190  is 
the  OPEN  statement  for  device  #3  (any  number) 
to  read  in  the  data.  Notice  that  this  statement 
matches  the  OPEN  #3  statement  in  Program  1, 
except  we  use  INPUT  instead  of  OUTPUT  because 
we  will  be  reading  in  data. 

Lines  200-240  print  the  heading.  Line  250  is 
an  INPUT  #3  statement  that  tells  the  computer  to 
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READ  data  from  device  #3.  This  statement  is  just 
like  using  READ  and  DATA  statements  within 
the  program,  only  we  use  data  files  instead  of 
program  statements  to  store  the  data.  The  items 
listed  may  be  read  in  as  needed  or  all  on  one  line, 
but  must  be  in  the  same  order  as  we  previously 
saved  them. 

Ordering  The  Data 

Line  260  skips  the  name  on  the  roster  if  the  student 
has  moved  and  counts  the  number  of  people  who 
have  moved.  Line  270  skips  a  line  when  the  name 
starts  with  a  different  letter  of  the  alphabet.  By 
listing  the  original  data  in  alphabetical  order,  this 
roster  and  other  reports  will  automatically  be  in 
alphabetical  order.  A  blank  line  is  printed  between 
groups  of  names  starting  with  different  letters. 
Line  280  checks  for  the  last  data  item. 

Line  290  combines  the  last  and  first  names. 
Lines  300-310  determine  the  birthday  from  the 
number  BD.  Line  330  combines  the  common  prefix 
586-  with  the  data  PS  for  the  phone  number. 

Lines  320  and  410  are  IMAGE  statements, 
a  feature  of  Extended  BASIC  which  makes  the 
module  worth  its  price  if  you  do  lots  of  reports. 
An  IMAGE  statement  allows  you  to  specify  how  a 
line  will  be  printed. 

You  can  also  use  IMAGE  statements  PRINT 
USING  statements  to  line  up  columns  of  money. 
For  example,  $###.##  will  print  a  number  in 
dollar  format  with  the  cents  rounded  off.  Line  340 
uses  line  320  to  print  the  information. 

Lines  350  and  360  increment  the  number  of 
names  and  number  of  lines  printed.  Line  370 
checks  for  a  student  who  is  just  auditing  the  class. 
Line  380  causes  the  computer  to  branch  back  to 
the  INPUT  statement  to  read  the  next  data  items. 

Typing  Errors 

If  you  get  a  data  error,  the  most  likely  cause  would 
be  mistyping  the  DATA  statements  in  Program  1. 
When  the  program  stops  with  an  error,  you  can 
PRINT  NS  to  see  which  was  the  last  name  that 
was  accepted.  Use  that  information  to  try  to  pin- 
point a  typing  error  in  Program  1.  (Be  sure  to  SAVE 
Program  2  before  you  go  back  to  Program  1.)  You 
also  need  to  make  sure  the  data  items  in  line  250 
of  Program  2  are  in  the  same  order  as  the  data 
items  in  line  150  of  Program  1.  You  may  use  dif- 
ferent variable  names  if  you  wish,  as  long  as  the 
strings  and  numeric  variables  are  in  the  right 
order. 

Lines  390^60  print  the  totals  information. 
Line  470  uses  CHRS(12)  to  tell  the  printer  to  go  to 
a  new  page.  Line  480  CLOSEs  both  devices  used 
in  the  program. 

Program  1:  write  Data  Files 

80  REM  TI  EXTENDED  BASIC 
«?0  REM  DISK-  PRINTER 


100 
110 

120 

130 

140 
150 
160 
170 

180 
190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 
360 
370 
380 
39  0 
400 
4  10 
420 
430 
4  40 
450 
460 
470 


REM  WRITE  DATA  FILES 

CALL  CLEAR 

DISPLAY  AT< 12,5) ; "WRITING 

FILES" 


DATA 


480  DATA  3, WILSON, ED  J  342  S  300  E, 

55, 0, 1001 1 1 101 1 ," " 
490  DATA  S, ZZZ, ZZZ , , , 0, , " " 


OUTPUT, VARIABLE  192 

READ  G, N«, F*, A«, P*, BD, R*, C* 

PRINT  «3;6,N*,F*, At,P*,BD,R*,C* 

IF  N«="ZZZ"  THEN  180 

1=1+1   ::  DISPLAY  AT(23,3):I  ;: 

SOTO  140 

CLOSE  #3  : :  STOP 

DATA  1 , ADAMS, JENNIFER, 1207  W  80 

0  3,2314,924,1001110111,"" 

DATA  2, ALLEN, MICHAEL, 204  N  300 

W,3273,  1 125, 0010001 101  ,  "  " 

DATA  3, ANDERSON, RAM, 1 12  S  350  E 

,  1122,  129,  1101101101,  "" 

DATA  2, BAKER, MICHELLE, 310  S  350 

E, 4054, 1005, 1101110111,"" 
DATA  2, BROWN, JUSTIN, 971  EVERSRE 
EN, 9  656, 212, 1111111111,"" 
DATA  1 , CARTER, JODI ,91B  JUNIPER, 
8803,502,01 1 101 1 1 1 1  ,"  " 
DATA  3. CHRISTENSEN, WES, 1804  S  8 
00  W, 3102, 726,  1  1  101  1  101 1 ," " 
DATA  1 , DAINES, BRETT, 123  S  350  E 
, 4  765, 1020, 1001 1 101 1 1 ," " 
DATA  1 , GIFF, BEAU, 222  CABBAGE  LA 
NE. 5733,901  , --1  101 1 1  1 1 ,  "" 
DATA  2, HANSEN, GRANT, 209  N  300  W 
,899  6, 425, 1 1 1 1 00 1 1 1 - , MOVED 
DATA  3, JENSEN, CINDY, 932  EVERGRE 
EN,  7  532, 415,1011101101,"" 
DATA  2, JENSEN, NATALIE, 420  S  100 

E, 34B7, 512,  ."  " 
DATA  1 , JOHNSON, ROCHELLE, 355  S  1 
00  E, 0217,  1 10,  1 101 1 1 1  100,  "  " 
DATA  1 , JONES, CHERY, 1502  CEDAR, 0 
157, 802, 1111111111,"" 
DATA  3, LARSEN,BOB, 120  S  350  E,a 

674, 510, 1  111111,"" 

DATA  1 , LARSEN, BILL, 56  S  300  E,l 
299,520, 1111111111,"" 


DA 
,5 
DA 

E 
DA 
56 
DA 
S, 
DA 

N 
DA 
S, 
DA 

f  > 
DA 
78 
DA 
8 

DA 
S, 
DA 
S 
DA 
27 
DA 
45 


TA 
60 
TA 
,4 
TA 
70 
TA 
45 
TA 
,9 
TA 
56 
TA 
61 
TA 
9, 
TA 
4, 
TA 
4  3 
TA 

TA 
58 
TA 


7,  : 
2, 

35; 
1 , 

,8( 
2, 

87, 
3  , 

00'; 

2 
83 

o 

1 , 

31 


79, 

'-> 

^~   '. 

22: 
1 . 

,6: 
1 , 

12: 


MORRIS, TE 
14,111101 
NELSON, RO 
,  1005,  110 
NIELSEN, T 
6,0111111 
OLSON, RIC 
0, 1 100001 
PETERSON, 
,302,  1  1  1  i 
RICH, BRIT 
407, 11101 
SAWYERS, J 
010101011 
SMITH, JEF 
, 11101111 
SMITH, TRO 

,  1  1  1 1  1  1 

SORENSON, 
104,  1  1  1  11 
TAYLOR, CA 
, 826, 1111 
THATCHER, 
7,  1  1  1001 1 
WHITE, DEA 
, 1 1 101001 


RRY 
1  1  1 
GER 
01  1 
OM, 
01  i 
HAR 
1  1  1 
RAN 
1  1  1 
TAN 
101 
ILL 


,375  E  100  N 
0, AUDIT 
,  1362  N  1700 
1 1--, MOVED 
236  E  500  N, 

D,B01  W  300 

II  H 

DY,233  E  500 
111,"" 
Y,725  E  525 
1 1 , AUDIT 
,806  W  200  N 


F,305  S  350  E,7 

10,"" 

Y,855  S  300  E,6 

11,"" 

GREG, 315  E  525 

11111,"" 

MILLE,225  E  525 

001  101  ,  "  " 

DON, 534  SPRUCE, 

101,"" 

NNA,289  CEDAR, 8 

00  ,  "  " 


Program  2:  Roster 

80  REM  TI  EXTEND 
90  REM  DISK,  PRI 
100  REM  ROSTER 
110  CALL  CLEAR 
120  DISPLAY  AT(i: 

ER" 
130  DIM  M* ( 1 2 ) 
140  FOR  1  =  1  TO  l: 

EXT  I 
150  DATA  JAN, FEB 
L, AUG, SEP, DC 
I,N,MM,L=0  : 
REM  PRINTER 
OPEN  tt2: "RS2 
OPEN  #3: "DSK 
VARI  A 


ED  BASIC 
NTER 


■PRINTING  ROST 


READ  M$ ( I ) : 


N 


160 

170 

130 

1  90 

2  00 

210 

220 

230 


>40 


250 
260 

270 

230 
290 
300 

310 


520 


330 
3  40 

3  50 

360 

3  70 

330 

3  90 

4  00 
410 
420 
4  30 
440 
450 
460 

470 
480 

490 


INPUT 

PRINT  #2:TAB 

PRINT  #2:   :T 

PRINT  #2:   :T 

934" 

PRINT  #2:   : 

AB (25) ; "PHDN 

" ; TAB (61 ) ; "B 

OMMENTS" 

PRINT  tt2: "- 

—  " ; TAB  <34)  ; 

"  ;  TA 

INPUT  #3:G,N 
IF  C«=" MOVED 
OTO  250 
IF  SEG*  (N« ,  1 
#2  : :   L*=SEG 
IF  N*="ZZZ" 
N*=N$&",   "&F 
IF  BD=0  THEN 
:   GOTO  330 
BD*  =  STR*  (BD> 
EN (BD*) -1 , 2> 
1  ,  LEN (BD*) -2 
IMAGE  #    #»# 
tt«###tt    #### 
tt«t3  SPACES! 

P«="586-"?(P* 

PRINT  #2, US  I 

D*, D, C* 

1  =  1  +  1 

L=L+1   : :   IF 


,MAR,APR,MAY,JUN,JU 
T, NOV, DEC 
:  L  *  =  "  A  " 
CONFIGURATION 
32. BA=600" 
1. SAMPLE", INTERNAL, 
BLE  192 
(34); "SAMPLE  CLASS" 
AB (37) ! "ROSTER" 
AB (33) ; "APRIL  IS,   1 

: " iZ  SPACES3NAME" ; T 
E"  ; TAB (34)  ;  "ADDRESS 
IRTHDAY" ; TAB (71 ) ; "C 

"|;TAB(2S)  ;  " 

" — "  ;  TAB  (61  )  ;  " 

B(71);" ":   : 

*,  F*  ,  A*,  P$,  BD,  r<«,  C* 
"  THEN  MM=MM+1  : :  G 

,  1  )  <  ;;L«  THEN  PRINT 
*  (N* ,  1 ,  1  >  :  :  L  =  L+ 1 
THEN  390 

BD*=" "  : :  D=0  : 

::  D=VftL (SEG* (BD* , L 
)  :  :  M  =  VAL  CSEG* ( BD* , 
) > : :   BD*=M* (M> 

#tt«  #*K3  3PACES:!«tt# 


NG  32  0: G, N*, P*, A*, B 


CHR« ( 12) : ; 
IF  SEG^(C«, 
N  +  1 
GOTO  250 


L=49  THEN  PRINT  #1: 
L=0  : :  GOTO  200 
1,5)="AUDIT"  THEN  N= 


PRINT 
T=I-N 
IMAGE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


#2: 

#2, 
#2 
#2, 
#2, 

#2, 


4« 
USI 

USI 
USI 
USI 


ENROLLED" 
PRINT  #2:CHR 
CLOSE  #2  : : 
END 


NG  410:1, "NAMES" 

NG  4  10:N, "AUDIT" 
NG  410: MM, "MOVED" 
NG  410; T, "PRESENTLY 

*  (  12) 
CLOSE  #3 
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The  Automatic  Proofreader 

For  VIC  64,  And  Atari 


Charles  Bronnon,  Program  Eaitor 

At  /(7s/  tlwrc's  li  way  for  i/our  computer  hi  help  \/ou  check 
yourtifpiij^;.  "The  Autofimtic  Proofrciutcr"  uull  iiuikccnlcrin^'^ 
progri2iu<,  faster,  cusier,  ami  more  accurate. 

The  strong  point  of  computers  is  tiiat  tiiey  excel  at 
tedious,  exacting  t£isi<s.  So  vvliy  not  get  your  computer 
to  clieck  your  typing  for  you? 

Witii  "The  Automatic  Proofreader"  nestled  in 
your  VIC-20,  Commodore  64,  or  Atari  computer,  every 
line  you  type  in  will  be  verified.  It  displays  a  special 
code,  called  a  checkfuiii,  at  the  top  of  the  screen.  The 
checksum,  either  a  number  (VlC/64)  or  a  pair  of  letters 
(Atari),  corresponds  to  the  line  you've  just  typed.  It 
represents  every  character  in  the  line  summed  together. 
A  matching  code  in  the  program  listing  lets  vou  com- 
pare it  to  the  checksum  which  the  Proofreader  displays. 
A  glance  is  all  it  takes  to  confirm  that  you've  typed  the 
line  correctly. 

Entering  The  Automatic  Proofreader 

Commodore  (VlC/64)  ow^ners  should  type  in  Program 
1.  Program  2  is  for  Atari  users.  Since  the  Proofreader  is 
a  machine  language  program,  be  especially  diligent. 
Watch  out  for  typing  extra  commas,  or  a  letter  O  for  a 
zero,  and  check  every  number  carefully.  If  you  make  a 
mistake  when  typing  in  the  DATA  statements,  you'll 
get  the  message  "Error  in  DATA  statements"  when  vou 
RUN  the  program.  Check  your  typing  and  try  again. 

When  you've  typed  in  The  Automatic  Proofreader, 
SAVE  it  to  tape  or  disk  at  least  twice  before  running  it  for 
the  first  time.  If  you  mistype  the  Proofreader,  it  may 
cause  a  system  crash  when  you  first  run  it.  By  SAVEing 
a  copy  beforehand,  you  can  reLOAD  it  and  hunt  for 
your  error.  Also,  you'll  want  a  backup  copy  of  the 
Proofreader  because  you'll  use  it  again  and  again — 
every  time  you  enter  a  program  from  COMPUTE!. 

When  you  RUN"  the  Proofreader,  the  program  will 
be  POKEd  safely  into  memory,  then  it  will  activate 
itself.  If  vou  ever  need  to  reactivate  it  (RUN/STOP— RE- 
STORE or  SYSTEM  RESET  will  disable  it),  just  enter 
the  command  SYS  886  (VIC/64)  or  PRINT  USR(1536) 
for  the  Atari. 

Using  The  Proofreader 

Now,  let's  see  how  it  works.  LIST  the  Proofreader 
program,  move  the  cursor  up  to  one  of  the  lines,  and 
press  RETURN.  If  you've  entered  the  Proofreader 
correctly,  a  checksum  will  appear  in  the  top-left  corner 
of  your  screen. 

Try  making  a  change  in  the  line  and  hit  RETURN. 
Notice  that  the  checksum  has  changed.  All  VIC  and  64 
listings  in  Compute;  now  have  a  number  appended  to 
the  end  of  each  line,  for  example,  :rem  123.  Don't 
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enter  tliis  staleinoit.  It  is  just  for  your  information.  The 
rem  is  used  to  make  the  number  harmless  if  someone 
does  type  it  in.  It  will,  howe\'er,  use  up  memory  if  you 
enter  it,  and  it  will  cause  the  checksum  displayed  at 
the  top  of  the  screen  to  be  different,  even  if  you  entered 
the  rest  of  the  line  correctly. 

The  Atari  checksum  is  found  immediately  to  the 
left  of  each  line  number.  This  makes  it  impossible  to 
type  in  the  checksum  accidentally,  since  a  program 
line  must  start  with  a  number. 

Just  type  in  each  line  (without  the  printed 
checksum),  and  check  the  checksum  displayed  at  the 
top  of  the  screen  against  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  they  don't, 
there's  a  mistake.  You  can  correct  the  line  immediately, 
instead  of  waiting  to  find  the  error  when  you  RUN  the 
program. 

The  Proofreader  is  not  picky  with  spaces.  It  will 
not  notice  extra  spaces  or  missing  ones.  This  is  for 
your  convenience,  since  spacing  is  generailv  not  im- 
portant. Occasional!}'  proper  spacing  is  important,  but 
the  article  describing  the  program  will  warn  you  to  be 
careful  in  these  cases. 

Nobody's  Perfect 

Although  the  Proofreader  is  an  important  aid,  there 
are  a  few  things  to  watch  out  for.  If  you  enter  a  line  by 
using  abbreviations  for  commands,  the  checksum  will 
not  match  up.  This  is  because  the  Proofreader  is  very 
literal:  It  looks  at  the  individual  letters  in  a  line,  not  at 
tokens  such  as  PRINT.  There  is  a  way  to  make  the 
Proofreader  check  such  a  line.  After  entering  the  line, 
LIST  it.  This  makes  the  computer  spell  out  the  abbre- 
viations. Then  move  the  cursor  up  to  tiie  line  and  press 
RETURN.  It  should  now  match  the  checksum.  You 
can  check  whole  groups  of  lines  this  way.  Atari  users 
should  beware  of  using  ?  as  an  abbreviation  for  PRINT — 
they're  not  the  same  thing  in  the  Proofreader's  eyes. 

The  checksum  is  a  sum  of  the  ASCII  values  of  the 
characters  in  a  line.  VIC  and  64  owners  may  wonder 
why  the  numbers  are  so  small,  never  exceeding  255. 
This  is  because  the  addition  is  done  only  in  eight  bits. 
A  result  over  255  will  roll  over  past  zero,  like  an  odome- 
ter past  99999.  On  the  Atari,  the  number  is  turned  into 
two  letters,  both  for  increased  convenience  and  to  make 
the  Proofreader  shorter.  For  the  curious,  the  letters 
correspond  to  the  values  of  the  left  and  right  nybbles 
added  to  33  (to  offset  them  into  the  alphabet).  This 
number  is  then  stored  directly  into  screen  memory. 

Due  to  the  nature  of  a  checksum,  the  Proofreader 
will  not  catch  all  errors.  Since  I+3-l-5  =  3-(-l-t-5,  the 
Proofreader  cannot  catch  errors  of  transposition.  In 
fact,  vou  couid  type  in  the  line  in  any  order,  and  the 
Proofreader  wouldn't  notice.  Anytime  the  Proofreader 


seems  to  act  strange,  keep  this  in  mind.  Since  the  ASCII 
values  of  the  number  18  (49  +  56)  and  63  (54  +  51)  both 
equal  105,  these  numbers  are  equal  according  to  the 
Proofreader.  There  really  is  no  simple  way  to  catch 
these  kinds  of  errors.  Fortunately,  the  Proofreader 
will  catch  the  majority  of  the  typing  mistakes  most 
people  make. 

If  vou  want  the  Proofreader  out  of  your  way,  just 
press  SYSTEM  RESET  or  RUN/STOP— RESTORE.  If 
you  need  it  again,  enter  SYS  828  (VIC/64)  or  PRINT 
USR(1536)  (Atari).  You  must  disable  the  Proofreader 
before  doing  any  tape  operations  on  the  VIC  or  64. 

Hidden  Perils 

The  Proofreader's  home  in  the  VIC  and  64  is  not  a  very 
safe  haven.  Since  the  cassette  buffer  is  wiped  out  during 
tape  operations,  you  need  to  disable  the  Proofreader 
with  RUN/STOP— RESTORE  before  you  SAVE  your 
program.  This  applies  only  to  tape  use.  Disk  users  or 
Atari  owners  have  nothing  to  worry  about. 

Not  so  for  VIC  and  64  owners  with  tape  drives. 
What  if  you  tvpe  in  a  program  in  several  sittings?  The 
next  day,  you  come  to  vour  computer,  LOAD  and 
RUN  the  Proofreader,  then  try  to  LOAD  the  partially 
completed  program  so  you  can  add  to  it.  But  since  the 
Proofreader  is  trying  to  hide  in  the  cassette  buffer,  it  is 
wiped  out! 

What  you  need  is  a  way  to  LOAD  the  Proofreader 
after  you've  LOADed  the  partial  program.  The  problem 
is,  a  tape  load  to  the  buffer  destroys  what  it's  supposed 
to  load. 

After  you've  typed  in  and  RUN  the  Proofreader, 
enter  the  following  lines  in  direct  mode  (without  line 
numbers)  exactly  as  shown: 

A$="PROOFREADER.T" :     BS="(10    SPACES)":    FOR 
X    =    1    TO    4:    A?=A$+B$:    NEXTX 

FOR  X  =  886  TO  1018:  A?=A$+CHR$ ( PEEK (X) ) : 
NEXTX 

OPEN  1,1,1,A?:CL0SE1 

After  you  enter  the  last  line,  you  will  be  asked  to 
press  record  and  play  on  your  cassette  recorder.  Put 
this  program  at  the  beginning  of  a  new  tape.  This  gives 
you  a  new  way  to  load  the  Proofreader.  Anytime  you 
want  to  bring  the  Proofreader  into  memory  without 
disturbing  anything  else,  put  the  cassette  in  the  tape 
drive,  rewind,  and  enter: 

OPENl:CLOSEl 

You  can  now  start  the  Proofreader  bv  tvping  SYS 
886.  To  test  this,  PRINT  PEEK(886)  should  return  the 
number  173.  If  it  does  not,  repeat  the  steps  above, 
making  sure  that  AS  ("PROOFREADER. T")  contains 
13  characters  and  that  BS  contains  10  spaces. 

You  can  now  reload  the  Proofreader  into  memory 
whenever  LOAD  or  SAVE  destroys  it,  restoring  your 
personal  typing  helper. 

Incidentally,  you  can  protect  the  cassette  buffer  on 
the  Commodore  64  with  POKE  1 78, 165.  This  POKE 
should  work  on  the  VIC,  but  it  has  caused  numerous 
problems,  probably  due  to  a  bug  in  the  VIC  operating 
system.  With  this  POKE,  the  64  will  not  wipe  out  the 
cassette  buffer  during  tape  LOADs  and  SAVEs. 


Program  1:  VIC/64  Proofreader 

100  PRINT" ECLR} PLEASE  WAIT... 

1018:READA:CK=CK+A:POKEI, 
110  IF  CK017539  THEN  PRINT"{ 

E  AN  ERROR" : PRINT" IN  DATA 

":END 
120  SYS886:PRINT"{CLR) [2  DOWN 

ACTIVATED, ":NEW 
886  DATA  173,036,003,201,150, 
892  DATA  001,096,141,151,003, 
898  DATA  037,003,141,152,003, 
904  DATA  150,141,036,003,169, 
910  DATA  141,037,003,169,000, 
916  DATA  254,096,032,087,241, 
922  DATA  251,134,252,132,253, 
928  DATA  201,013,240,017,201, 
934  DATA  240,005,024,101,254, 
940  DATA  254,165,251,166,252, 
946  DATA  253,040,096,169,013, 
952  DATA  "210,255,165,214,141, 
958  DATA  003,206,251,003,169, 
964  DATA  133,2X6,169,019,032, 
970  DATA  255,169,018,032,210, 
976  DATA  169,058,032,210,255, 
982  DATA  254,169,000,133,254, 
988  DATA  151,003,192,087,208, 
994  DATA  032,205,189,076,235, 
1000  DATA  032,205,221,169,032 
1006  DATA  210,255,032,210,255 
1012  DATA  251,003,133,214,076 
1018  DATA  003 

Program  2:  Atari  Proofreader 

100  GRAPHICS  0 

110  FOR  1=1536  TO  1700:READ  A:POKE  I 

, A: CK=CK+A: NEXT  I 
120  IF  CKO19072  THEN  ?  "Error  in  DA 

TA  statements.  Ctieck  typing  ":END 


":FORI=886TO 
A: NEXT 

DOWN) YOU  MAD 
STATEMENTS . 

PROOFREADER 

208 

173 

169 

003 

133 

133 

008 

032 

133 

164 

032 

251 

000 

210 

255 

166 

172 

006 

003 

,032 

,173 

,173 


130  A=USR( 
14  0  ?  : ?  " 
ac  t  i  va 
ND 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1536) 

Automatic  Proofreader  now 

ted.  " 


150  E 

1536 

1542 

1548 

1554 

156  0 

1566 

1572 

1578 

1534 

159  0 

1596 

1602 

1  608 

1614 

1620 

1626 

1  632 

1638 

1644 

1  650 

1  656 

1662 

1663 

1674 

1680 

1686 

1692 

1698 


16 
69 
34 
74 


104 
201 
192 
169 
169,6, 
0, 189, 
6, 232, 
16  9,93 
6,  141  , 
4, 228, 
6, 173, 
14 1 , 96 
203, 96 
93, 6, 2 
124, 24 
0  ,  0  .  f  I , 
246,8, 
201 , 32 
101 . 20 
96, 72, 
160, 0, 
200, 19 
203 
105 


74 
16 
165, 20 


161 

133 


104, 40 


0,  0 
,24 
,20 
,  15 
153 
0,  2 
224 
,  14 
79, 
105 
5,  2 

c^. 
,  24 
44, 
1  ,7 
0,  3 
201 
..  24 
3,  1 
152 
169 

2,  4 
,74 
1  ,  1 

3,  4 
0,  i 
3,  1 
,  96 


,  1 
0, 
S, 


28 
,  1 
1  , 
6, 
,  1 
28 
16 
7  , 
24 
6. 


,  7 
,  1 
0, 
,7 
60 
1  , 
45 
04 


35,  2 
7.  20 
243, 
2  6,  3 
6,3, 
,  157 

6,  20 
78,  6 
24  ,  1 
,  141 
,  105 
9,0, 
238, 
1,11 
205, 
62 
55,  2 

7,  72 
,  203 
2,  13 
28,  i 
208, 
4  ,  74 
,  3,  1 
15,  2 
,  88, 
,  170 


6,3 
0,  200 
96, 200 
,  200 
162 
,74 
a,  245 
,  169 
73 
,  95 

133 

125, 24 1 
5,  24  1 

233,  0 

40,  13 

(.24 

, 104, 40 

8,  72 

45,  88 

249, 165 

J  24 

45,  88 

4,  10S 

169,  0 

, 104, 168 
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1540/1541  Disk 

Housekeeping 


Michoel  Moione 


This  simple  iitilihj  iviii  help  you  ctmii  up  the  clutter  on 
your  1540  or  1541  diskdrix>e.  For  VIC  and  Coinniodore 
64. 


If  you  experiment  with  different  programming 
techniques  and  save  each  enhancement  along  the 
way,  your  disks  tend  to  get  cluttered  with  out- 
dated routines.  Using  programming  techniques 
employed  by  Jim  Butterfield  {COMPUTE!,  April 
1982  and  March  1983)  and  Steven  Smith  {COM- 
PUTE!, March  1983),  this  short  program  will  help 
with  your  housekeeping  chores. 

Type  in  the  program,  SAVE  it  to  disk,  and 
then  give  it  a  try.  To  prevent  a  disaster,  try  it  first 
on  a  disk  which  does  not  include  any  important 
programs  or  files. 

Scratcliing  And  Unscratching  Files 

If  you  choose  the  Scratch  option,  a  portion  of  the 
disk  directory  will  be  displayed — just  enough  to 
fit  comfortably  on  the  VIC  screen  along  with  the 
query  "Scratch  program?"  If  you  do  not  wish  to 
scratch  any  of  the  programs  listed,  press  the  N 
key  and  another  portion  of  the  directory  will  be 
presented.  Repeat  this  procedure  until  the  entire 
directory  has  been  displayed. 

If  you  want  to  scratch  a  file  on  the  list,  press 
the  Y  key.  Then,  type  in  the  name  of  the  file  to  be 
scratched  and  press  RETURN.  The  file  will  be 
scratched  automatically,  and  the  program  will 
restart  from  the  beginning.  Continue  this  process 
until  all  unwanted  files  have  been  removed  from 
the  disk. 

When  the  entire  disk  directory  has  been  pre- 
sented, you  can  end  the  program  by  pressing  the 
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N  key  in  response  to  the  scratch  question. 

If  the  Unscratch  option  is  chosen,  the  program 
collects  all  free  blocks  off  the  disk  and  displays 
the  names  of  any  previously  scratched  files.  You 
are  then  prompted  with  a  scratched  file.  Enter  Y 
to  unscratch  it.  Sometimes  the  file  will  be  partially 
scrambled  because  other  files  have  been  written 
over  the  original  file.  In  that  case,  a  message  is 
displayed  indicating  that  the  file  is  unrecoverable. 

Abbreviated  Directory  Listing 

Lines  10^0  set  the  screen  color,  display  the  title 
and  begin  the  program.  Lines  50-190  read  eight 
filenames  from  the  disk  directory  and  print  them 
to  the  screen.  The  file  sizes  and  types  have  been 
eliminated  from  the  screen  display  to  make  it 
clearer  and  more  concise.  If  you  wish  to  include 
them,  make  the  necessary  changes  by  referring  to 
Jim  Butterfield's  article  "The  Confusing  Catalog" 
(COMPUTE!,  March  1983). 

Lines  200-240  branch  the  program  depending 
on  whether  or  not  you  wish  to  scratch  a  file.  Line 
250  ends  the  program  when  all  files  have  been 
displayed  and  the  N  key  is  pressed.  Line  260  re- 
turns to  the  directory  for  more  filenames. 

Line  270  gets  the  filename  which  is  to  be 
scratched  and  ends  the  program  if  you  accidentally 
hit  RETURN  before  you  type  a  filename. 

The  subroutine  in  lines  340-380  examines  the 
filename  you  enter.  If  the  filename  is  longer  than 
ten  characters,  it  abbreviates  the  name  and  adds 
"*"  to  the  end.  This  is  done  so  that  the  filename 
and  the  scratch  command  together  will  not  be 
longer  than  one  VIC  screen  line. 

Finally,  lines  290-330  use  the  "dynamic 
keyboard"  technique  described  by  Steven  Smith 


in  "Automatic  Commodore  Program  Selector" 
(COMPUTE!,  March  1983),  to  scratch  the  file  and 
run  the  program  again  from  the  beginning. 

Use  PRINT#  Abbreviation 

If  you  have  a  VIC,  be  sure  to  abbreviate  the  com- 
mand PRINT#  (P,SHIFT-R)  in  line  310,  to  insure 
that  the  filename  and  the  command  together  do 
not  exceed  the  22-character  line  length  of  the  VIC 
screen.  If  they  are  too  long,  the  RETURNS  which 
are  POKEd  into  memory  in  line  330  are  not  entered 
properly  when  the  END  statement  is  reached. 

The  Scratch  portion  of  the  program  runs  on 
the  VIC  (any  memory  configuration)  and  64.  Since 
the  line  length  of  the  64  screen  is  40  characters, 
abbreviating  the  filename  when  it  is  longer  than 
10  characters  should  not  be  necessary.  You  may 
wish  to  modify  or  simply  eliminate  the  subroutine 
in  lines  340-380.  Commodore  64  users  who  wish 
to  display  more  than  eight  filenames  on  the  screen 
at  one  time  can  adjust  line  190  accordingly. 

With  a  little  experimentation,  VIC  users 
should  be  able  to  eliminate  the  necessity  for  the 
subroutine  which  abbreviates  the  longer 
filenames.  Try  using  branch  statements  and  a 
second  routine  for  printing  the  "OPEN," 
"scratch,"  "RUN,"  and  "cursor  up"  instructions 
in  lines  290-330.  Also  try  adding  lines  to  validate 
the  disk  and  reorganize  the  directory.  Finally, 
add  a  few  lines  to  read  the  error  channel,  to  make 
the  program  more  complete, 

1540/1541  Disk  Housekeeping 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in, 

0  REM  IP  YOU  HAVE  AN  UNEXPANDED  VIC,  DELE 
TE  10,  11,  AND  400-10020        : rem  162 

10  DIMA(255),C%(77,28),D%(1),T%{224,1),S% 
(224,1),L%{224),R%(77)  ; rem  38 

11  D%(0)=58«D%{l)=42iZ$=CHR${0) jB$=CHR${3 
):D$="0"  «rem  234 

20  PRINT"{CLR) {6  DOWN} {8  SPACES } SCRATCH " s 
PRINT  srem  251 

30  PRINT" (6  DOWN}S=SCRATCH,  U=UNSCRATCH" 

trem  155 
40  GETQ$iIFQ$=""THEN40  : rem  11 

45  IPQ$="U"THEN400  : rem  6 

46  IFQ$<>"S"THEN40  i rem  18 
50  PRINT "{ CLR H DOWN ){RVS} DISK"  : rem  23 
60  OPEN1,8,0,"$0"  :rem  77 
70  N$=CHR$(0)  :rem  152 
80  GET#1,A?,A$  :rem  190 
90  F$=""iB=0!GET#l,A$,A$  : rem  205 
95  IFC=0THENPRINT"{RVS}";  irem  250 
100  lFA$=""THENX=l!GOTO200  irem  0 
110  GET#1,A$,B$  srem  233 
120  PRINTTAB ( 5 ) ;  :rem  184 
130  GET#1,A$  srem  89 
140  lFA?=""THENPRINTiA=A+l!GOTO190:rem  40 
150  IFA?=CHR$(34)THENB=1:A$=""  : rem  127 
160  IFB=1THENF9=F$+A$:PRINTA$;  trem  13 
170  IFLEN(F5)>16THENC=C+1:GOTO90  : rem  144 
180  GOTO130                     srem  102 


190  IFA<8THEN90  srem  118 

200  PRINT "SCRATCH  PROGRAM?  Y/N"   srem  152 
210  GETZ$sIFZ9=""THEN210  srem  123 

220  IFZ$="Y"THEN270  srem  67 

230  1FZ$="N"THEN250  srem  55 

240  GOTO210  srem  98 

250  IFX=lTHENCLOSElsGOTO390       srem  209 
260  PRINT" {CLR} {2  DOWN} " iA=0 5GOTO90 

srem  226 
270  CLOSEls INPUT" [DOWN}WHICH  PROGRAM" ;P? : 

IFP$=""THENEND  srem  93 

280  GOSUB340  srem  177 

290  PRINT" {CLR} {8  DOWN}"  srem  135 

300  PRINT"OPEN15,8,15"  srem  242 

310  PRINT" {2  DOWN}PR15,"CHR$(34)"S0t"X$CH 

R$(34)"  :rem  76 

320  PRINT"{2  DOWN} RUN" SPRINT "{10  UP}" 

irem  50 
330  POKE631,135POKE632,135POKE633,135POKE 

198,3sEND  srem  147 

340  FORA4=lTOLEN(P$) sR$=MID? ( P$ , A4, 1 ) 

s  rem  86 
350  X$=X$+R$  srem  110 

360  NEXT  srem  216 

370  IFLEN(X$)>10THENX9=LEFT$(X$,10)+"*" 

srem  158 
380  RETURN  srem  123 

390  CLOSElSsRUN  srem  167 

400  PRINT" {3  DOWN}LOADING  FREE  SECTORS" sO 

PEN15,8,15, "I"+D$sGOSUB3020   trem  110 
410  OPEN3,a,3,"$"+D?sGOSUB3020 
420  A0=lsGET#3,A$sA=ASC(A5+Z$) 
430  READAl s IFA=A1THEN470 
440  F%=F%+lsIFF%=3THEN510 
450  READAl tIFAl=0THEN430 
460  GOTO450 

470  READAl s I FA1=0THEN490 
480  READBl t  FORJ=A0TOA1 : R% ( J ) =B1 s  NEXTJ  s A0= 

JsGOTO470  srem  88 

490  IFA=10RA=65THENDl=lsT9=35sS9=3:D9=18 

trem  118 
500  IFA=67THENDl=257tT9=77tS9=4sD9=39 

srem  151 
510  IPT9=0THENCLOSE3 SPRINT"??  DISK  NOT  RE 

COGNIZED  ??"sSTOP  srem  132 

520  FORJ=lTODlsGET#3,A9sNEXTJ      srem  18 
530  FORJ=lTOT9sTl=0  srem  147 

540  IFJ=51THENGET#3,A$,A$,A5,A$   srem  190 
550  GET#3,A$sC=ASC(A$+Z$)  srem  81 

560  Kl=0sFORK=0TOS9-lsGET#3,A?tA=ASC(A$+Z 

$)  srem  217 

570  FORL=0TO7  sA%=A/2  sDl=A-A%*2  s IFKl <=R% ( J 

)THENC%(J,K1)=D1  trem  13 

580  A=A%tTl=Tl+Dl:Kl=Kl+lsNEXTL,K3rem  169 
590  NEXTJ  srem  39 

600  CL0SE3  srem  63 

610  OPEN2,8,2, "#0"tGOSUB3020      srem  255 
900  K=0t PRINT "{CLR} LOOKING  FOR  SCRATCHED" 

t PRINT "FILES. .. "  srem  130 

910  T=D9:S=1  srem  163 

920  GOSUB  2000  srem  221 

930  FORD=2T0255STEP32 tIFA(D)<>0ORA(D+l)=0 

THEN9B0  srem  111 

940  IFK=0THENPRINT"DO  YOU  WANT  TO  RECOVER 

:"  trem  161 

950  GETX$sFORK=D+3TOD+18sPRINTCHR$(A(K) ) ; 

sNEXTK SPRINT"?  "r  srem  58 

960  GETX$  s IFX$ < > "Y" ANDX? < > "N"THEN960 

srem  128 


srem  99 

srem  100 

srem  168 

srem  112 

srem  149 

srem  108 

trem  157 
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970  PRINTX$:IFX$="y"THENl010      i rem  185 
980  NEXTD  :rein  36 

990  T=A{0) :S=A{1) :IFT=D9THEN920  i rem  35 
1000  PRINT "THAT'S  ALL  ";GOTO1270  : rem  83 
1010  T6=T:S6=S5D6=D:T=A(D+1) :S=A(D+2) :L%{ 
0)=A(D+28)+A(D+29)*256!L%=0  :rem  169 
1020  GETX$: PRINT" IS  THIS  FILE:"  : rem  88 
1030  PRINT"  1.  SEQUENTIAL"  : rem  239 
1040  PRINT"  2.  PROGRAM"  s rem  14 

1050  PRINT"  3.  USR"  :rem  242 

1060  IFA(D+19)=0THEN1080  : rem  38 

1070  PRINT"  4.  RELATIVE"  :rem  87 

1080  PRINT"  {2  SPACES}WHICH  NUMBER?  "f 

;rem  80 

1090  GETX$tIFX?=""THEN1090        : rem  229 
1100  X=ASC (X$ ) -48 : IFX<10RX>  4GOTO1090 

:rem  144 
1110  PRINTX$:X=X+128  t rem  185 

1120  IPX=132THENT%(0,1)=A(D+19)!S%(0,1)=A 

(D+20) :IFT%(0,1)=0THEN1020    :rem91 
1130  IFT>T9ORS<0THENT=0  srem  195 

1140  IFT<10RS>R%(T)THENPRINT"  BAD  CHAINI" 

:GOTO1260  :rem  235 

1150  IFC%(T,S)=0THENPRINT"  ALLOCATED  BLOC 

KS!";GOTO1260  srem  243 

1160  GOSUB3000!L%=L%+1  : rem  192 

1170  PORJ=0TO1:PRINT#15, "M-R" ;CHR$ ( J) ;B$ s 

GET#15,A?  -rem  115 

1180  A(J)=ASC(A$+Z5) sNEXTJ        srem  220 
1190  T4=TsS4=SsT=A(0) :S=ACl) :IFT<>0THEN11 

30  srem  10 


1200  T=T%(0,1) !S=S%{0,1) tT%(0,l)=0jIFT<>0 

THEN1130  -rem  132 

1210  IFL%<>L%(0)THENPRINT"  INCORRECT  BLOC 

K  COUNT1":GOTO1260  ; rem  42 

1220  T=T6:S=S6!D=D6  srem  104 

1230  GOSUB  3000  srem  9 

1240  PRINT#15, "M-W";CHR${D);B?;CHR$(1);CH 

R5CX)  srem  51 

1250  PRINT#15, "U2s2, ";D$;T;S!GOSUB3020sGO 

TO1300  srem  227 

1260  PRINT "SORRY  -  IT  WON'T  WORK" srem  181 
1270  CL0SE2  srem  114 

1300  CLOSE2sPRINT#15,"V0":CLOSE15sFORQW=l 

TO10000: NEXT! RUN  srem  59 

2000  REM  GRAB  FULL  DISK  BLOCK  srem  139 
2010  GOSUB3000  srem  6 

2020  FORJ=0TO255  j  PRINT#15 , "M-R" ; CHR? ( J ) ; B 

$:GET#15,A$  srem  217 

2030  A(J)=ASC(A$+Z$) sNEXTJsRETURNsrem  241 
3000  REM  READ  BLOAD  srem  37 

3010  PRINT#15,"B-R"2?VAL(D$);T;S  : rem  49 
3020  REM  GET  ERROR  STATUS  srem  247 
3030  INPUT#15,E,E$,E1,E2  srem  42 

3040  IFE<>0THENPRINT"{bVS1D1SK  ERROR: 

{0FF]"E;E$,E1;E2  srem  21 

3050  RETURN  srem  168 

10000  DATA  1,17,20,24,19,30,17,35,16,0 

s  rem  44 
10010  DATA  65,17,20,24,18,30,17,35,16,0 

srem  102 
10020  DATA  67,39,28,53,26,64,24,77,22,0 

srem   126  CE 


thour^ 


ATARI"  USERS 

WE  SPECIALIZE  IN  BACKUP  HARDWARE  AND  SOFTWARE 

"We  are  the  Backup  Experts" 


mouRi 

^SHIPPING'' 


COPY  ANY  ATARI'"  CARTRIDGE 

CART  CLONE'" 

A  MUST  FOR  ALL  ATARI'"  USERS. 
CART  CLONE  will  backup  and  transfer 
any  8  or  16K  cartridge  to  disk  or  lape. 
The  contents  of  the  cartridge  will 
become  a  file  which  you  car^  transfer, 
rename  or  delete.  They  will  execute 
Irom  DOS,  No  need  to  run  a  special 
menu  or  program  to  run  these  iiles. 

(A)  Will  it  copy  any  cartridge? 
The  answer  is  YES. 

(B)  What  will  1  get? 

The  answer  is  a  cartridge  contain- 
ing the  hardware  required  anO  a 
disk  with  the  doner  software  in  a 
powerful  machine  language  pro- 
gram. 

We  are  running  an  Introductory  Sale 
for  a  limited  time.  You  can  get  CART 
CLONE'"  with  software  for 


»59 


95 


■  2,50  Shipping 

This  price  could  increase  in  the  future, 
Dealer  inquiries  are  welcome, 

CART  CLONE-  goes  in  the  left  cart- 
ridge slot  enabling  it  to  work  in  ail 
ATARI'"  Home  Computers  including 
the  XL  series. 


COPY  ANY  ATARI"  DtSK 

The  HAPPY  BIO 
ENHANCEMENT  KIT 

Wim  WARP  SPEED  Software 

The  HAPPY  ENHANCEMENT  KIT  is 
guaranteed  for  five  years  to  copy  any 
ATARI™  Disk.  Comes  with  Sector 
Copier  and  The  Compactor  and  more 
software.  The  Compactor  will  turn 
your  auto  boot  whole  disks  into  files 
The  transfer  of  data  between  the 
computer  and  disk  is  greatly  increased. 
Disk  drive  wear  is  decreased.  This  is  a 
plug-in  kit-  No  need  to  solder  or  cut. 
Easy  installation. 

We  have  LARGE  STOCK  ready  for  24 
Hour  shipping. 

pmcE  $22*500 

KKit-b        ^^^  ^  5,00  Shipping 

TheTRANSFERPACK 

FOR  BACKING  UP  AND  TRANS- 
FERRING YOUR  SOFTWARE 

1)Disk  file  to  tape 
ZJBoot  lape  to  disk  file 
3)Tape  to  tape 

VERY  POWERFUL  and  low  priced, 
Programs  are  in  machine  ianguaoe 
and  user  friendly,  ALL  3  FOR  ONLY 

$0^95 

^^T    -  2.50  Shipping 


WRITE-RIGHT 

This  device  will  allow  you  to  write  lo 
side  2  of  any  disk.  Install  this  box  lo 
your  ATARI"  310'"  Dish  Drive  in  5 
minutes.  Just  plug  in  one  cable  -  no 
cutting  or  soldering  required.  Push  a 
button  and  a  LED  will  light,  allowing 
you  to  write  to  a  dish  without  notching 
out  a  hole  in  the  disk.  Easy  plug-in 
installation.  Instructions  included 
Fully  tested  and  assembled.  ONLY 


$2495 

-  2,50  Shipping 


THE  BOOK 
WITH  SOFTWARE 

Software  protection  and  codecrackinn 
techniques.  MASTER  CODE 
CRACKER  REVEALS  ALL. 
In  this  book  you  will  find  out  how  the 
software  is  protected  and  ways  to 
protect  your  software.  Copy  guarding 
will  be  covered  in  detail  on  disks. 
cartridges  and  tapes  and  hardware 
tricks.  You  will  also  leceive  a  disk  with 
many  programs  and  examples 
BOOK  WITH  SOFTWARE  ONLY 


$24 


95 


ATARI"  4  aiO  ARE  tHADHMARKS  OF  ftTARl 


PHONE  ORDERS 

(516)  467-1866 

PRODUCT  INFO: 

(516)  588-6019 


GARDNER  COMPUTING  COMPANY    To.%'Zer.°.°aZZ 


P.O.  BOX  388,  HOLBROOK,  N.Y.  11741 
We  are  working  on  New  Products  and  Software  -  CALL 


money  orders  and  sftip  wilhm 
24  Hours  (mosl  products) 
(Personal  ctiecks  will,  have 
to  clear  belofe  shipping.) 
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Hidden  Atari 
S  Commands 


Jason  Lex  Thomas 


Even  if  you  have  only  one  disk  drive,  you  can  use  COPY 
FILE  and  a  few  one-line  programs  to  add  power  and 
convenience  to  your  Atari  DOS.  There  are  a  number  of 
short  exatnples  to  type  in  ami  try  out. 


The  Atari  Disk  Operating  System  (DOS)  menu  is 
a  very  powerful  tool.  It  provides  many  selections 
to  help  both  the  beginner  and  the  advanced  user 
get  the  most  out  of  the  Atari  computer  system. 
This  article  explores  some  special  uses  of  selection 
C,  COPY  FILE. 

COPY  FILE  is  mainly  used  by  owners  of  two 
or  more  disk  drives  who  wish  to  transfer  a  file  or 
series  of  files  between  drives.  This  is  a  powerful 
alternative  to  using  the  DUPLICATE  FILE  selec- 
tion (option  O).  But  COPY  FILE  also  can  be  used 
in  other  ways,  even  if  you  have  only  one  drive. 

Tlie  Key  Is  Device  Names 

Before  we  get  into  the  details,  though,  let's 
examine  a  few  aspects  of  Atari  DOS.  When  you 
select  COPY  FILE  from  the  menu,  the  system 
asks  you  for  source  and  destination  filenames. 
The  interesting  fact  is  that  you  can  also  enter  a 
device  name  here.  (Not  all  device  names  are  legal, 
but  quite  a  few  are.)  This  is  not  that  surprising, 
because  the  Atari  is  an  input/output  based 
machine.  To  prove  it,  this  BASIC  program 

10  PRINT  "enter  your  name" 
20  INPUT  A* 

can  easily  be  written  as 

10  OPEN  #1,4,0,  "E:  " 

20  PRINT  «1; "enter  your  name" 

30  INPUT  #1;A* 

40  CLOSE  #1 


The  result  is  about  the  same.  And  the  Atari  BASIC 
interpreter  translates  the  two  programs  into  simi- 
lar code.  The  Atari  uses  these  input/output  control 
blocks  (also  called  channels)  for  the  editor  (E:), 
keyboard  (K:),  and  screen  (S:)  without  the  user 
having  to  know  anything  about  them. 

Confidential  Input 

Note  that  in  line  10  of  the  second  program  above, 
the  input  and  output  are  processed  through  the 
editor.  We  could  have  opened  the  keyboard  (K:) 
instead,  but  then  the  name  we  keyed  in  would 
not  have  appeared  on  our  screen.  If  we  were  in- 
corporating a  password  routine  into  our  program, 
we  could  open  the  keyboard  rather  than  the  editor, 
so  that  the  password  we  enter  will  not  be  echoed 
to  the  screen. 

To  relate  all  this  to  COPY  FILE,  you  can  get  a 
listing  of  a  program  or  a  printout  of  a  sequential 
disk  file  if  you  select  COPY  FILE  and  then  type: 

D:/j7enaine,P: 

when  it  asks  you  for  the  source  and  destination 
filenames.  This  will  print  the  information  that  is 
in  D:filename  on  the  printer.  This  works  well  for 
programs  you  have  LISTed  to  a  diskette. 

It  also  works  for  sequential  text  files  that  you 
have  created  for  uploading  or  downloading  on 
data  base  networks  like  CompuServe.  Unfortu- 
nately, the  cassette  handler  (C:)  is  not  supported 
by  the  COPY  FILE  selection. 

Copy  Keyboard  Entries  To  Disic 

Perhaps  the  most  intriguing  device  combination 
that  you  can  enter  is 

E:,D:fUename 
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which  will  let  you  copy  anything  that  you  type 
into  a  disk  file. 

The  power  of  this  technique  derives  from  the 
fact  that  Atari  has  a  direct-mode  BASIC.  That  is, 
some  BASIC  instructions  can  be  entered  and  ex- 
ecuted immediately  without  a  line  number.  Of 
course,  instructions  such  as  GOTO,  GOSUB,  and 
a  few  others  which  require  line  numbers  are  not 
as  useful  as  if  they  are  within  a  program. 

The  next  few  programs  must  be  typed  in 
using  the  abbreviations.  To  type  these  in,  do  the 
following: 

1.  Type  DOS  to  go  into  the  DOS  menu. 

2.  Select  option  C.  COPY  FILE. 

3.  When  it  asks  for  filenames,  type  in 
E:,D:filename  (for  the  programs  that  follow). 

4.  Type  in  the  one-line  program,  followed  by 
a  carriage  return. 

5.  Type  a  CTRL  3  to  tell  the  system  that  you 
have  finished. 

6.  At  this  point,  you  return  to  the  DOS 
menu. 

To  use  these  programs  from  BASIC,  simply  type  in 

EN."D:filename 

and  the  program  will  begin  execution  automati- 
cally. The  best  thing  of  all  about  these  programs 
is  that  they  occupy  only  one  disk  sector  each  and 
simulate  many  of  the  DOS  commands  without 
actually  going  to  the  DOS  menu.  Also,  they  re- 
quire little  memory  and  leave  your  program  intact. 
It's  great  to  be  in  the  middle  of  program  editing 
and  only  need  to  type  EN.  "D:DIR  to  get  a  directory. 

These  examples  are  all  one-line  programs, 
but  you  can  have  multiple  lines.  You'll  have  to  be 
a  little  careful.  Remember,  no  GOTOs  or  GOSUBs 
allowed! 

Following  is  a  series  of  programs  which  are 
keyed  in  using  the  COPY  FILE  function  to  copy 
from  the  editor  to  the  disk.  These  programs  are 
just  a  few  examples  of  what  can  be  done.  All  of 
the  programs  are  to  be  keyed  in  followed  by  a 
single  carriage  return  and  a  CTRL  3  as  explained 
in  the  body  of  the  text. 

Disk  Directory 

This  program  displays  a  directory  of  the  files  on 
the  disk  in  drive  1 .  Note  that  an  Error  136  will 
occur  at  the  end  of  the  listing  if  you  have  fewer 
than  64  files  on  the  diskette.  This  occurs  because 
you  have  reached  the  end  of  file  and  can't  TRAP 
anywhere.  Simply  type  END  and  <RETURN> 
when  through.  Here's  D:D1R: 

CLR: T. 40000: CL, *i:O.ttl,6,0,"D:t.»": 
DIMA* (30) : F. X=1T064: I . #1 ; A*; ?A* : N. X: 
CUR: CL. #1 : END 
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Erase  Fiie 

This  program  will  ask  you  which  file  you  wish  to 
delete  from  the  disk,  and  then  delete  it  without 
going  to  DOS.  The  program  D:K1LL  follows: 

CLR; T. 40000: CL.«1:D.#1,4,0,"E:":  DIM 

A«  <  30  >  :  ?  "  k  i  1  1  -f  i  1  e-  "  :  I  .  #  1  ;  A*  :     CL  .  #  1  : 
O. #1 , 4,0, A«: XI033,«1 , 0 , 0 , A* : CL . » 1 : CL 
R:  END 

Protect  File 

This  program,  D:LOCK,  performs  the  LOCK  FILE 
function  of  the  DOS  menu: 

CLR:  T.  4  00013:  CL.«r:0.  #1,4,0,  "E:  "  :  DIM 
A*  (30)  :  7"  1  Dctcf  i  le-"  :  I  .  #1  ;  A«:  CL.  #1  :  D 
.«1,4,0,A«:XID35,*1,0,0,A«:CL.#1:CLR 
:  END 

Disable  File  Protection 

D:UNLOCK  will  perform  the  UNLOCK  FILE 
selection  of  the  DOS  menu: 

CLR: CL. #1 : 0. #1  , 4, 0,  "E:  " : DIMA*  <30)  :  ? 
"unl ockf  i 1 e" :  1 . #1 ; A*: CL. #1 : O. #1 , 4, 0, 
A*:      >:io36,#i,0..  0,A«:CL,«i:CLR:END 

Format  Disk 

DrFORMAT  performs  the  FORMAT  DISK  option 
of  the  DOS  menu: 

CLR:CL.#l:D.«l,4,0,"E:":?"insert  dis 
k  to  +Drmat  and  hit  any  kBy":GET#l,A 
:  CL.  *1  :  XI0254,«1  ,  0.  0,  "Dl  :  '■  :  END 

Write  DOS 

This  program  performs  the  WRITEDOS  function 
of  the  DOS  menu.  However,  D:WRITEDOS  will 
write  DOS.SYS  only: 

CLR: CL.«1:O.#1,4,0,"E:":?" Insert  dis 
k  to  write  DOS  &  hit  any  key":6ET#l, 
A:CL.«1:O.«1,B,0,"D: DOS . SYS" : CL . «1 

Change  Colors 

This  program  will  allow  you  to  alter  the  screen 
color  as  you  desire.  Try  different  number  combi- 
nations for  the  POKEs  into  the  color  registers 
until  you  find  a  combination  that  suits  you.  This 
is  D:COL: 

POKE    709,0:POKE    710,10:POKE    712,114© 
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Function  Keys 
For  The  Apple 


llan  Reuben 


Frequently  used  commands  (or  sequences  of  commands) 
can  be  input  more  easily  by  function  keys  defined  by  the 
programmer.  This  machine  language  program  lets  you 
define  up  to  five  function  keys  for  the  Apple;  you  can 
enter  the  program  using  the  Apple's  monitor  or  the 
BASIC  loader  provided. 


A  standard  feature  of  many  newer  computers  (for 
example,  the  Commodore  64,  the  VIC-20,  and 
many  Japanese  computers)  is  the  function  key.  It 
allows  the  user  to  easily  enter  frequently  used 
commands,  or  even  sequences  of  commands,  and 
get  it  right  every  time.  (How  many  times  have 
you  rushed  your  fingers  over  the  keyboard,  only 
to  see  you've  typed  CATALOF  or  LISY?) 

Since  the  Apple  has  no  special  function  keys, 
the  only  way  to  get  them  is  through  software. 
"Function  Keys"  is  a  machine  language  utility 
which  provides  up  to  five  programmable  function 
keys.  A  little  over  half  a  page  (128  bytes)  in  length, 
the  program  resides  at  location  $300  (decimal  768). 
It  also  uses  a  range  of  memory  from  $9000  to  $94FF. 
It  can  be  entered  directly  using  the  Apple's  built- 
in  monitor  (Program  1)  or  with  a  BASIC  loader 
(Program  2). 

Defining  Functions 

Function  Keys  allows  you  to  define  or  use  up  to 
five  function  keys  in  direct  mode.  Each  function 
can  represent  a  series  of  commands  of  up  to  256 
characters  in  length.  When  you  press  CTRL-F, 
the  computer  will  wait  for  you  to  press  the  number 
of  the  function  you  would  like  to  use  (1  through 
5)  or  press  0  to  define  a  function.  Pressing  any 
other  number  will  produce  a  CTRL-X. 

Once  you  have  indicated  what  function  you 
want  to  use,  press  RETURN  and  the  computer 
will  act  as  if  you'd  typed  in  the  function  you  used. 
Pressing  the  key  of  an  undefined  function  will 
just  give  a  carriage  return. 


To  define  a  function,  press  0.  The  computer 
will  respond  with  the  message  FN#?  (1-5, 
0  =  EXIT).  It  is  asking  you  what  function  number 
you  would  like  to  define.  Pressing  0  here  wUI  abort 
the  define  procedure.  When  the  appropriate  func- 
tion number  is  pressed,  the  computer  will  input 
what  you  want  it  to  record  as  that  function.  Type 
it  in  as  if  you  were  actually  giving  the  computer 
that  command.  When  you  are  done,  press  RE- 
TURN. If  you  wish  to  abort  while  you  are  typing 
it  in,  just  press  RESET. 

Here  is  a  step-by-step  example  of  how  to  use 
function  keys.  Suppose  you  want  to  turn 
CATALOG  into  a  function  key: 

1.  Type  CTRL-F. 

2.  Press  0  since  you  want  to  define  a  function. 

3.  When  you  see  the  computer's  prompt 
(FN#?... ),  press  1,  since  you  want  to  define 
function  number  one. 

4.  Type  CATALOG  and  press  RETURN. 

5.  Now,  whenever  you  press  <CTRL-F>  1 
<RETURN>  you  should  get  a  disk  catalog. 

Putting  The  Program  On  Disl( 

Entering  Function  Keys  through  the  monitor  will 
be  a  lot  quicker  than  typing  in  the  whole  BASIC 
loader.  In  any  case,  when  you  are  done,  save  it 
by  typing: 

BSAVE  FUNCTION  KEYS  1.2,A$300,L$9C 

However,  if  you  do  use  the  BASIC  loader,  make 
sure  you  SAVE  it  before  trying  it  out,  in  case  you 
made  any  mistakes. 

Once  you  have  the  machine  language  for 
"Function  Keys  1.2"  saved  on  disk,  enter  the  setup 
routine  (Program  3)  and  save  it.  Now,  whenever 
you  want  to  use  Function  Keys,  run  the  setup 
program.  It's  a  good  idea  to  use  the  setup  program 
as  part  of  a  HELLO  program  so  that  every  time 
you  boot  that  disk.  Function  Keys  will  be  auto- 
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matically  enabled.  If  for  some  reason  you  want  to 
disable  Function  Keys,  enter  9DG4:BD  9E  from 
the  monitor  if  DOS  is  enabled,  and  if  it  isn't,  enter 
36:F0  FD.  You  might  need  to  disable  Function 
Keys  before  running  certain  programs. 

Program  1:  Data  For  Function  Keys 

0300-  C9  86  D0  IC  18  20  5B  03 
0308-  B0  19  A0  FF  CB  C0  FF  F0 
0310-  42  Bl  06  99  00  02  C9  8D 
0318-  D0  F2  84  06  A6  06  CA  60 
0320-  4C  BD  9E  A0  10  B9  SB  03 
0328-  20  F0  FD  88  10  F7  38  20 
0330-  5B  03  A9  F0  BD  04  9D  A9 
033B-  FD  8D  05  9D  20  67  FD  A9 
0340-  00  SD  04  9D  A9  03  SD  05 
0348-  9D  A0  00  B9  00  02  91  06 
0350-  CB  D0  FB  A2  00  A9  SB  BD 
0358-  00  02  60  08  20  0C  FD  C9 
0360-  B6  B0  10  C9  B0  90  0C  F0 
0368-  18  E9  21  85  07  A9  00  85 
0370-  06  28  60  28  A9  87  20  F0 
0378-  FD  A9  98  9D  00  02  68  68 
0380-  60  2B  B0  02  38  60  68  68 
0388-  4C  53  03  A9  D4  C9  D8  C5 
0390-  BD  B0  AC  BS  AD  Bl  A6  A0 
0398-  BF  A3  CE  C6 


Program  2:  basic  Loader 


10 

20 
30 
40 
50 
60 
70 
B0 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
IBS 


FOR  ADDR  -  76S  TO  923 

READ  BYTE 

POKE  ADDR, BYTE 

NEXT 

DATA  201,134,208,28,24,32,91 

DATA  3,176,25,160,255,200,192 

DATA  255,240,66,177,6,153,0,2 

DATA  201,141,208,242,132,6 

DATA  166,6,202,96,76,189,158 

DATA  160,16,185,139,3,32,240 

DATA  253,136,16,247,56,32,91 

DATA  3,169,240,141,4,137,169 

DATA  253,141,5,157,32,103 

DATA  253,169,0,141,4,157,169 

DATA  3,141,5,157,160,0,185,0 

DATA  2,145,6,200,208,248,162 

DATA  0,169,136,141,0,2,96,8 

DATA  32,12,253,201 

DATA  182,176,16 


190 

DATA 

200 

DATA 

210 

DATA 

220 

DATA 

230 

DATA 

240 

DATA 

250 

DATA 

260 

DATA 

270 

DATA 

201, 176 
233,33, 
6,40,96 
240,253 
104, 104 
96,104, 
212,201 
172,181 
191,163 


, 144, 12,240,24 
133,7,169,0,133 
,40,169, 135,32 
,169,152, 157,0,2 
,96,40,176,2,56 
104,76,83,3, 169 
,216,197,189,176 
,173,177,168,160 
,206,198 


Program  3:  setup  Routine 

10  D*  =   CHR*  (4) !  REM    CTRL-D 

20   PRINT  D*"BLOADFUNCTION  KEYS  1.2" 

30  OUTVEC  =  9  »  4096  +  13  «  256  +  4:  REM 

*9D04 
40   POKE  OUTVEC, 0:  POKE  OUTVEC  +1,3 
50   PRINT  :  PRINT  "FUNCTION  KEYS  ENABLE 

D.  "  t 
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VARIABLE  LISTER 


Kenneth  D  Day 


"Variable  Lister"  displays  a  list  of  current  values  for  all 
variables  and  array  elements,  while  your  program  is 
running.  Tliis  can  be  a  nwst  valuable  debugging  tool. 
This  relocatable  subroutine  is  written  in  machine  lan- 
guage for  VJC.  Versions  are  also  included  for  the  64 
and  Atari.  Refer  to  the  "Automatic  Proofreader"  article 
before  typing  in  these  programs. 


"Variable  Lister"  is  a  6502  machine  language  sub- 
routine which  prints  the  values  of  variables  in 
BASIC  programs.  The  program  makes  it  easy  to 
inspect  the  values  of  all  variables  in  a  BASIC  pro- 
gram at  various  preselected  points  during  execu- 
tion or  after  the  program  has  been  aborted  by  the 
BASIC  interpreter.  The  subroutine  is  called  by 
SYS  followed  by  the  decimal  address  of  the  entry 
point  into  the  subroutine  (SYS  65336).  The  sub- 
routine does  not  interfere  with  the  execution  of 
the  BASIC  program,  so  it  may  be  called  several 
times  within  a  program. 

When  called,  the  subroutine  clears  the  screen 
and  prints  the  Variable  Lister  heading.  It  then 
begins  to  scroll  through  the  values  of  all  simple 
(nonarray)  variables.  The  order  in  which  the  vari- 
ables are  listed  is  determined  by  their  order  of 
occurrence  during  the  BASIC  program's  execution. 

The  variable  name  is  printed,  followed  by  an 
equal  sign  and  the  value  of  the  variable.  String 
variable  values  are  enclosed  in  quotes  so  the  user 
can  distinguish  blank  strings  ("  ")  from  the  null 
string  ("").  Integer  {numbers  with  no  decimal 
point)  and  floating-point  values  are  printed  exactly 
as  thev  would  be  from  BASIC,  because  the  sub- 
routine uses  the  output  routines  of  the  BASIC 
interpreter. 

Each  Array  Element  Is  Listed 

After  simple  variables  are  displayed,  the  program 
begins  scrolling  through  arrays.  A  listing  of  an 
array  begins  with  a  display  of  the  array  name  and 
its  dimensions.  The  program  then  scrolls  through 
each  element,  printing  the  element  name  followed 
by  an  equal  sign  and  the  value  of  the  element. 
Values  are  printed  using  the  same  conventions  as 
those  for  simple  variables.  Array  elements  are 
printed  with  leftmost  subscripts  changing  the 
most  quickly. 

A  pause  feature  is  included  so  you  can  tem- 
porarily halt  the  scrolling  display.  To  pause,  press 
any  key  except  HOME  and  the  down  arrow. 


Scrolling  is  restarted  by  pressing  RETURN  or  any- 
printable  character  key. 

To  speed  up  vour  search  through  long  vari- 
able lists,  you  can  press  the  down-arrow  key  for  a 
rapid  scroll  rate.  To  clear  the  screen  and  skip  to 
the  next  array,  press  the  HOME  key.  You  can  also 
use  this  feature  while  examining  simple  variables, 
to  skip  to  the  first  array. 

RETURN  Ends  The  Listing 

When  you're  ready  to  return  from  the  subroutine, 
simply  press  the  RETURN  key. 

Please  note  that  the  special  functions  of  the 
HOME  and  RETURN  keys  are  not  available  while 
the  subroutine  is  in  pause  mode.  Pressing  these 
keys  while  the  program  is  pausing  only  restarts 
the  scrolling. 

The  relocating  loader  (Program  1)  will  load 
Variable  Lister  into  any  VIC-20  with  or  without- 
memory  expansion.  Variable  Lister  requires  867 
bytes,  so  the  BASIC  loader  program  will  just  fit 
into  memory  on  an  unexpended  VIC-20.  The 
DATA  statements  in  the  loader  program  contain 
the  hexadecimal  equivalent  of  the  unrelocated 
machine  code  for  the  Variable  Lister  subroutine. 
Had  I  separated  the  pairs  of  hexadecimal  numbers 
representing  each  byte  in  memory  with  commas, 
the  loader  program  could  not  have  been  run  on 
an  unexpanded  VIC-20. 

Memory  Pointers  Are  Reset 

Lines  6-7  move  the  top-of-memory  pointers  so 
that  the  Variable  Lister  subroutine  will  be 
protected  from  the  operating  system  and  BASIC 
interpreter. 

Lines  9-13  POKE  the  unrelocated  machine 
language  into  the  area  made  available  at  the  top 
of  memory. 

Lines  14-17  relocate  addresses  within  the 
subroutine  to  be  consistent  with  its  location  in  the 
machine  on  which  it  is  loaded. 

Line  18  tells  you  how  to  call  Variable  Lister 
by  printing  SYS  followed  by  the  decimal  address 
of  the  entry  point  of  the  machine  language  sub- 
routine. This  line  also  POKEs  the  entry  point  ad- 
dress into  the  address  area  used  by  the  tJSR  func- 
tion. If  vou  forget  the  decimal  address  of  the  entry 
point  for  Variable  Lister,  SYS  PEEK(l)  -(-PEEK 
(2)*256  instead. 

You  can  also  call  the  subroutine  with  a  state- 
ment Uke  X  =  USR(O),  but  on  return  from  the  sub- 
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routine  the  BASIC  interpreter  will  abort  with  a 
TYPE  MISMATCH  error.  (However,  it's  not  good 
programming  style  to  call  this  subroutine  as  if  it 
were  a  function  which  returns  a  value.)  Line  18 
also  deletes  the  loader  by  issuing  the  NEW  com- 
mand, so  be  sure  to  SAVE  a  copy  before  you  RUN 
the  program. 

To  use  VIC  Variable  Lister,  first  LOAD  and 
RUN  the  loader  (Program  1),  then  LOAD  and 
RUN  the  program  for  which  you  wish  the  variables 
listed.  After  the  program  has  run,  give  the  SYS 
to  start  Variable  Lister.  If  you  need  to  check  the 
value  of  variables  at  some  point  before  the  end 
of  the  program,  simply  include  a  SYSx^-xx  state- 
ment at  the  desired  point  in  your  program,  where 
xxxx  is  the  proper  SYS  address  for  your  memory 
configuration. 

If  you  would  rather  not  enter  the  program 
yourself,  I  will  send  you  a  cassette  tape  copy  (VIC 
version  only).  Send  $3,  a  blank  cassette  tape,  and 
a  self-addressed,  stamped  mailer  to: 

Prof.  Kenneth  D.  Day 

Baldy  537 

Deparhnent  of  Communication 

SUNY  at  Buffalo 

Buffalo,  NY  14260 

Program  1:  vie  variable  Lister 

6  L=PEEK { 644 ) *25 6+PEEK ( 643 ) -86 7 : P0KE644 , 1 
NT (L/256 ) ! POKE643 , L-PEEKC  644 ) *256 

;rem  183 


7  FORI=56T052STEP-2:POKEI,PEEK(644) : POKEI 
-1,PEEK(643) :NEXT  : rem  110 

8  PRINT"ECLR}E6  DOWN] {3  SPACES) LOADING  PR 
OGRAM"  :rem  24 

9  P=L+34:F0RI=1T021; READS?. •FORJ=1TO40:C$= 
LEFT$(S?,2):S$=RIGHT$(S?,80-J*2):V=0 

I  rem  62 

10  IFLEFT${C$,1)="X"THEN14        :rem  193 

11  D1=ASC(LEFT$(C$,1) ) : D2=ASC{ RIGHTS CC$ , 1 
))  :rera  108 

12  V=-(Dl>64)*(Dl-55)*16+-(Dl<65)*{Dl-48) 
*16+-(D2>64)*(D2-55)+-(D2<65)*(D2-48) 

: rem  39 

13  POKEP,V:P=P+l: NEXT: NEXT        ; rem  202 

14  P=P-l:IFP=L+43THENia  : rem  108 

15  IFPEEK(P)<480RPEEK(P)>51THEN14   : rem  2 

16  1FP=L+80ORP=L+108ORP=L+405ORP=L+412THE 
N14  :rem  174 

17  V=PEEK(P)*256+PEEK(P-1 )+L-12288 i POKEP, 
INT(V/256):P0KEP-1,V-PEEK(P)*256:P=P-1 
:G0T014  :rem  99 

18  L=L+43! PRINT" [CLR} TYPE  " ; " { RVS}SYS" ; L; 
"(off]  to  USE":P0KE2,  ISfT(L/256)  rPOKEl, 
L-PEEK(2)*256:NEW  : rem  85 

50  DATA0D504D5544205  24156A993  20D2FFA207A9 
1D20D2FFCAD0FAA209BD213020D2FFCAD0F7A9 
0D20D2FF  :rem  132 

51  DATAA52F8D0930A5  308D0A30A52D800030A52E 
aD013018903  5AD0030C5  2FD00AAD0130C530D0 
034C8C31  :rem  223 

52  DATA20AD30A93D20D2FF200C31A90D20D2FF20 
D2FFA205AC0030C8D003EE0130CAD0F78C0030 
A9042082  :rem  43 

53  DATA32201D33ia90C0AE01308E0A30AE00308E 
0930A0008C08308C0230AD00308526AD013085 
27B12613  srem  101 

54  DATA05  297FEE02308D063020D2FFC8B1261008 
297FEE0230EE02308D07  3020D2FFAE0230F013 
CAP010CA  srem  27 


Commodore  64  And  Atari  Version  Notes  To  Variobie  Lister 


The  64  version  of  "Variable  Lister"  works 
just  like  the  VIC  version,  except  that  it  is 
stored  in  the  free  memory  above  address 
SCOOO,  safe  from  BASIC.  Install  the  lister  by 
loading  and  running  Program  2.  You  can 
initiate  the  listing  of  variable  values  by  t}'ping 
SYS  50000.  As  an  aid  in  program  debugging, 
you  can  also  include  SYS  50000  as  a  statement 
in  your  program  wherever  you  want  to  see 
the  current  values  of  all  the  variables, 

If  you  have  typed  in  the  "MLX"  machine 
language  editor  program  from  a  previous 
issue  of  COMPUTE!,  you  can  use  it  to  make  a 
copy  of  the  machine  language  portion  of 
Variable  Lister.  LOAD  and  RUN  Program  2, 
then  LOAD  and  RUN  MLX.  Specify  49991  as 
the  starting  address  and  50824  as  the  ending 
address,  then  use  the  MLX  Save  option  to 
store  the  machine  language  on  tape  or  disk. 
The  program  thus  created  can  be  reloaded 
without  erasing  a  BASIC  program  already  in 


Kevin  Martin,  Editorial  Programmer 

memory  by  typing: 

LOAD  "filename",l,l     for  tape 
or 


LOAD  "fiiename",8,l     for  disk. 

As  before,  the  variable  listing  is  initiated 
with  SYS  50000. 

The  Atari  version  of  Variable  Lister  is  a 
combination  of  two  programs  from  The  Atari 
BASIC  Sourcebook  (COMPUTE!  Books).  The 
programs  are  found  on  pages  123  and  125-26. 

Before  typing  this  program  in,  be  sure  to 
type  NEW.  Type  this  program  in  and,  instead 
of  SAVEing  it,  LIST  the  program  to  disk 
(LIST"D:VARL1ST")  or  to  cassette  (L1ST"C:"), 
Then  type  NEW  in  again  and  LOAD  the  pro- 
gram for  which  you  want  to  list  variables. 
Finally,  use  ENTER  to  add  the  Variable  Lister 
subroutine  from  disk  (ENTER"D:VARL1ST") 
or  cassette  (ENTER"C:").  Then  type  GOTO 
32700  to  obtain  the  listing  of  the  variables. 
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The  Professional  Systems  People  And 
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C  Present  Products  From 

C  commodore 
And 
The  Software  That  Makes  Them  Work! 


SOFTWARE 


PerSys 

VIC  20,  C-64,  8032,  8096  &  B-Series 

PERSONAL  Financial  System 

A  complete  financial  package  for  home 
and  small  business,  beginning  at  $69.00 
on  tape. 

SbSys 

8032,  8096  &  B-Series 

The  Small  Business  System 

Available  for  8050,  8250  and  hard  disk 
drives.  GL,  AP,  AR,  INV.  and  payroll 
modules  beginning  at  $299.00!  Call  for 
specific  pricing. 

vertical  packages: 
LegiSys 

8032,  8096  &  B-Series. 

The    total    legal    office    information, 

accounting  and  tickler  system. 


LoadSys 


These  are  sample  unit  prices.  We  carry 
support  items,  cables,  games... WE  HAVE  IT! 


8032,  8096  &  B-Series. 

The  total  truck  brokerage  accounting 

system.  Call  for  free  intro  consulting. 

Custom  Programming 
&  REPAIR  Service 

Call  for  rates. 

VISA  &  MasterCard.  Add  3%  Surcharge. 
Prices  for  mail  order  only,  subject  to  change  without  notice. 


Send  $1  for  catalog,  refundable  on  first  order. 

Call  Toil-Free  by  dialing: 

Outside  Texas: 

1-800-221-WORX 

Inside  Texas: 

1-800-692-4265, 

wait  for  beep,  then  dial  008-3378, 
wait  for  tone  and  dial  993, 
or  Lubbock  806/797-2623, 

Dallas/Ft.  Worth  817/589-2622. 

WlEfflE 


4210  D  50th  Si. 


MESS. 


Lubbock,  TX  79413 


55  DATAF005A92  5189002A9248D083020D2FFAE00 
30E8D003EE0130E88E0030D003EE013060AE02 
30D014AC  :rem  218 

56  DATA0130AD003020A2DS20DDDDA001A900201E 
CB60CAD00160CACAF041A92220D2FFAD003085 
26AD0130  :rem  23 

57  DATA8527A000B1268D0D30C8B1268529C8B126 
852AAC0D30B129GD0530A900912  9A42AA52920 
1ECBAC0D  :rem  9 

58  DATA30AD05309129A922  20D2PF60A000AD0030 
8526AD01308527B1268D0530C8B126A8AD0530 
2091D318  :rem  168 

59  DATA908EA902208232AD0030C5  31D00eAD0130 
C5  3  2D0016020A130A92O20D2FFA94420D2FFA9 
4920D2FF  : rem  228 

60  DATAA94D20D2FFA92020D2FFA92820D2FFA000 
AD003085  26AD013085  27B126186D09308D0930 
C8B1266D  :rem  13 

61  .DATA0A308D0A30CBB126aD0B303AAAA003B126 
990B30C8CAD0F7AD0B300AAABD0D30A8CA8E03 
30BD0D30  :rem  108 

62  DATA88208631AE0330CAD00DA92920D2FFA90D 
20D2FF189008A92C20D2FF1890D6AD0B300A18 
69036D00  (rem  50 

63  DATA308D0030A9006D01308D0130A9042082  3  2 
2093  3  2  20A432200C31A90D20D2FF201D3  3C91F 
F005A902  :rem  109 

64  DATA2082  3  2  201D3  3A905  38ED0230186D00308D 
0030A9006D01 308001 30CD0A30D0CCAD0030CD 
0930D0C4  :rem  162 

65  DATAA90D20D2FF4C8C31A2FFA0FF88D0FDCAD0 
P838E901D0Flia60AD08300AA8A200A9009D18 
30E888D0  :rem  172 

66  DATAF960AD063020D2FFAD07  3020D2PPAD0830 
20D2FFA92820D2FFAD0B300AAACABD1830A8CA 
BD18308E  :rem  187 

67  DATA0C30208631AE0C30F008A92C20D2FF1890 
E4A92920D2FFA93D20D2FFAD0B300AAACABD18 
30186901  jrem  99 

68  DATA9D1830CAA9007D18309D1830DD0E30F001 
60E8BD1830DD0E30F00160A9009Dia30CA9Dia 
30D00160  :rem  243 

69  DATA1890CEA5C5C91FD00160A6C6F0FB20E4FF 
CAD0FAC9ilD003A90060C90DD003686860C913 
D016AD09  srem  122 

70  DATA308D0030AD0A308D0130A99320D2FF6868 
4C8C31A6C6F0FC20E4FFCAD0FAA90060XXXXXX 
XXXXXXXX  :reiii  29 

Program  2: 64  variable  Lister 

10  1-49991  ,rem  247 

20  READ  A I IF  A=256  THEN  40         irem  54 

30  POKE  I,AiCK=iCK+AiI»I+l»GOT0  20trem  129 

40  IF  CK<> 108449  THEN  PRINT"CHECK  FOR  ERR 

OR  IN  DATA  STATEMENTS" I STOP     i rem  61 

50  PRINT "{down} DATA  LOADED  .  .  ."(PRINT" 

{DOWN] TYPE  tRVS]SYS  50000 {OFF}  TO  STAR 

T"iEND  I  rem  204 

49991  DATA  13,84,83,73,76,32     i rem  125 

49997  DATA  82,65,86,169,147,32    j rem  240 

50003  DATA  210,255,162,16,169,29   irem  40 

50009  DATA  32,210,255,202,208,250  : rem  77 

50015  DATA  162,9,189,70,195,32    irem  208 

50021  DATA  210,255,202,208,247,169 

irem  136 
50027  DATA  13,32,210,255,165,47  s rem  243 
50033  DATA  141,46,195,165,48,141  irem  46 
50039  DATA  47,195,165,45,141,37  irem  6 
50045  DATA  195,165,46,141,38,195  t rem  57 
50051  DATA  24,144,53,173,37,195  t rem  252 
50057  DATA  197,47,208,10,173,38  s rem  4 
50063  DATA  195,197,48,208,3,76    : rem  218 
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50069 

50075 

50081 

50087 

50093 

50099 

50105 

50111 

50117 

50123 

50129 

50135 

50141 

50147 

50153 

50159 

50165 

50171 

50177 

50183 

50189 

50195 

50201 

50207 

50213 

50219 

50225 

50231 

50237 

50243 

50249 

50255 

50261 

50267 

50273 

50279 

50285 

50291 

50297 

50303 

50309 

50315 

50321 

50327 

50333 

50339 

50345 

50351 

50357 

50363 

50369 

50375 

50381 

50387 

50393 

50399 

50405 

50411 

50417 

50423 

50429 

50435 

50441 

50447 

50453 

50459 

50465 

50471 

50477 

50483 

50489 


DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


177,196, 32, 210, 195, 169:rem  112 
61,32,210,255,32,49    : rem  196 
196,169,13,32,210,255   : rem  44 
32,210,255,162,5,172   : rem  246 
37,195,200,208,3,238   srem  252 
38,195,202,208,247,140irem  103 
37,195,169,4,32,167    : rem  209 
197,32,66,198,24,144     : rem  1 
192,174,38,195,142,47   : rem  56 
195,174,37,195,142,46   j rem  54 
195,160,0,140,45,195   ; rem  250 
140,39,195,173,37,195   : rem  56 
133,38,173,38,195,133   :rem  47 
39,177,38,16,5,41      srem  110 
127,238,39,195,141,43   : rem  51 
195,32,210,255,200,177  irem  94 
38,16,8,41,127,238     : rem  157 
39,195,238,39,195,141   irem  61 
44,195,32,210,255,174   irem  49 
39,195,240,19,202,240   irem  44 
16,202,240,5,169,37    irem  205 
24,144,2,169,36,141    irem  202 
45,195,32,210,255,174   :rem  38 
37,195,232,208,3,238   irem  254 
38,195,232,142,37,195   irem  50 
208,3,238,38,195,96    : rem  218 
174,39,195,208,20,172   : rem  49 
38,195,173,37,195,32     irem  4 
162,187,32,221,189,160  irem  99 
1,169,0,32,30,171       srem  86 
96,202,208,1,96,202    srem  203 
202,240,65,169,34,32   irem  248 
210,255,173,37,195,133  irem  94 
38,173,38,195,133,39    irem  13 
160,0,177,38,141,50    irem  195 
195,200,177,38,133,41   srem  52 
200,177,38,133,42,172   irem  45 
50,195,177,41,141,42   srem  251 
195,169,0,145,41,164     irem  6 
42,165,41,32,30,171    irem  185 
172,50,195,173,42,195   irem  53 
145,41,169,34,32,210   srem  242 
255,96,160,0,173,37    srem  200 
195,133,38,173,38,195   srem  61 
133,39,177,38,141,42   srem  253 
195,200,177,38,168,173srem  111 


42,195,32,145,179,24  irem  2 

144,142,169,2,32,167  irem  249 

197,173,37,195,197,49  srem  77 

208,8,173,38,195,197  srem  15 

50,208,1,96,32,198  irem  163 

195,169,32,32,210,255  srem  50 

169,68,32,210,255,169  srem  57 

73,32,210,255,169,77  srem  9 

32,210,255,169,32,32  irem  248 

210,255,169,40,32,210  trem  43 

255,160,0,173,37,195  trem  251 

133,38,173,38,195,133  srem  47 

39,177,38,24,109,46  srem  215 
195,141,46,195,200,177  trem  99 

38,109,47,195,141,47  trem  10 

195,200,177,38,141,48  trem  52 

195,10,170,160,3,177  srem  245 

38,153,48,195,200,202  srem  47 

208,247,173,48,195,10  srem  53 
170,189,50,195,168,202Erem  110 

142,40,195,189,50,195  irem  58 

136.32.171.196.174.40  irem  47 

195.202.208.13.169.41  trem  51 
32,210,255,169,13,32  srem  247 
210,255,24,144,8,169  trem  6 


50495 

DATA 

50501 

DATA 

50507 

DATA 

50513 

DATA 

50519 

DATA 

50525 

DATA 

50531 

DATA 

50537 

DATA 

50543 

DATA 

50549 

DATA 

50555 

DATA 

50561 

DATA 

50567 

DATA 

50573 

DATA 

50579 

DATA 

50585 

DATA 

50591 

DATA 

50597 

DATA 

50603  DATA 


50609 

DATA 

50615 

DATA 

50621 

DATA 

50627 

DATA 

50633 

DATA 

50639 

DATA 

50645 

DATA 

50651 

DATA 

50657 

DATA 

50663 

DATA 

50669 

DATA 

50675 

DATA 

50681 

DATA 

50687 

DATA 

50693 

DATA 

50699 

DATA 

50705 

DATA 

50711 

DATA 

50717 

DATA 

50723 

DATA 

50729 

DATA 

50735 

DATA 

50741 

DATA 

50747 

DATA 

50753 

DATA 

50759 

DATA 

50765 

DATA 

50771 

DATA 

50777 

DATA 

50783 

DATA 

50789 

DATA 

50795 

DATA 

50801 

DATA 

50807 

DATA 

50813 

DATA 

50819 

DATA 

srem  248 

:rem  245 

i  rem  249 

: rem  210 

I  rem  13 

srem  62 

J  rem  255 

:rem  247 

:rem  199 

:rem  216 

:rem  228 

srem  11 

t  rem  6 

srem  59 

srem  63 


44,32,210,255,24,144 

214,173,48,195,10,24 

105,3,109,37,195,141 

37,195,169,0,109,38 

195,141,38,195,169,4 

32,167,197,32,184,197 

32,201,197,32,49,196 

169,13,32,210,255,32 

66,198,201,31,240,5 

169,2,32,167,197,32 

66,198,169,5,56,237 

39,195,24,109,37,195 

141,37,195,169,0,109 

38,195,141,38,195,205 

47,195,208,204,173,37 

195,205,46,195,208,196:rem  118 

169,13,32,210,255,76   srem  255 

177,196, 16  2,255,160,255 

srem  167 
136,208,253,202,208,248 

srem  142 
56,233,1,208,241,24  srem  197 
96,173,48,195,10,168  srem  12 
162,0,169,0,157,61  srem  145 
195,232,136,208,249,96srem  114 
173,43,195,32,210,255  srem  44 
173,44,195,32,210,255 

173,45,195,32,210,255 
169,40,32,210,255,173 
48,195,10,170,202,189 
61,195,168,202,189,61 

195,142,49,195,32,171 

196,174,49,195,240,8 

169,44,32,210,255,24 

144,228,169,41,32,210 

255,169,61,32,210,255 

173,48,195,10,170,202 

189,61,195,24,105,1 

157,61,195,202,169,0 

125,61,195,157,61,195 

221,51,195,240,1,96 

232,189,61,195,221,51 

195,240,1,96,169,0 

157,61,195,202,157,61 

195,208,1,96,24,144 

206,165,197,201,31,208  srem  96 

1,96,166,198,240,251    srem  13 

32,228,255,202,208,250  srem  95 

201,17,208,3,169,0     srem  146 

96,201,13,208,3,104    srem  200 

104,96,201,19,208,22 

173,46,195,141,37,195 

173,47,195,141,38,195 

169,147,32,210,255,104  srem  89 

104,76,177,196,166,198srein  122 

240,252,32,228,255,202  srem  87 

208,250,169,0,96,256    srem  10 


FB  32535 


PJ 


540 


srem  51 
s  rem  49 
srem  42 
srem  55 
srem  60 
srem  64 
srem  19 

srem  252 
srem  50 
srem  52 
srem  54 

srem  204 

srem  251 
s  rem  59 

srem  199 
s  rem  5  5 

srem  159 
s  rem  50 

srem  213 


srem  252 
srem  70 
srem  59 


Program  3:  Atari  variable  Lister 


JE  32500  Q  =  WW-1 

JD  32505  D  =  PEEK  (  1  34  >  +256»PEEK  (  135)  +  (Q- 

128) *S 
DL32510  PRINT  rPRINT  "VflRIBLE  NUMBER 

" ; PEEK (Q+1  )  , 
JJ  32515  ON  INT  <PEEK  <Q> /64)  GOTO  32600 

, 32650 
1032520  PRINT  "IS  A  NUMBER,   "iPRlNT  , 

"VALUE  "; 
KC  32525  QEXP  =  PEEk  (D  +  2)  :  IF  QEXP>127  TH 

EN  PRINT  "-" ; : QEXP=QEXP-12S 
Lft  32530  QNUM  =  0sFDR  DQ  =  Q  +  3  TO  Q  +  7 


ftB  32545 

fin  32550 

LD  32555 
m 32570 

flH  32575 

M  325B0 

Ft)  32600 

BK  326  10 

CE  32615 

m 32620 
m 32650 

m 32660 

PH  32665 

DC  32670 

IC  32700 

IL  32710 

JH  32720 

KG  32730 


QNUM=DNUM 

PEEK (QQ) / 

QEXP=QEXP 

2555 

FDR  E!Q  =  QE 

-SGN (QEX 
ONUM= (QEX 
0) *QNUM/ 1 
PRINT  QNU 
IF  PEEKCQ 
THEN  325S 
PRINT  , "A 
ZONED"  : PO 
PRINT  , " A 
) +256*PEE 
PRINT  "IS 
2570 

PRINT  , "D 
256«PEEK  C 
PRINT  ,  "D 
256«PEEK ( 
RETURN 
PRINT  "IS 
2570 

PRINT  , "L 
+256*PEEK 
PRINT  , " i 
EK  (Q  +  6)  +2. 
RETURN 
WW= 128 
FOR  W=PEE 

TO  PEEKi 
IF  PEEK(W 
$ (PEEK (W) 
PRINT  CHR 
+1 : GDSUB 


*100+PEEK (QQ) -6*INT ( 

16) : NEXT  QQ 

-68: IF  QEXP=0  THEN  3 

XP  TD  SBNCQEXP)  STEP 
P) 

P>0)  «QNUM*100+CQEXP<; 
00:NEXT  QQ 
MsPRINT  sRETURN 
)/2<>INT<PEEK(D)/2) 
0 

ND  IS  NOT  YET  DIMENS 
P  : RETURN 

DDRESS  IS  ";PEEK(Q+2 
K (Q+3> : RETURN 
AN  ARRAY,   "  : GOSUB  3 

IM  1  IS  ";PEEK(Q+4)+ 
Q  +  5) 

IM  2  IS  ";PEEK<D+6)+ 
Q  +  7) 

A  STRING,  "sBDSUB  3 

ENGTH  IS  ";PEEK(Q+4) 
(D  +  5) 

3  SPACES3DIM  IS  " ; PE 
56«PEEK (Q+7) 


K ( 130) +256 « PEEK ( 131) 
132)+256*PEEK(133)-1 
X12B  THEN  PRINT  CHR 
) ; : NEXT  WsSTOP 
«(PEEK(W)-128>sWW=WW 
32500:NEXT  WsSTDP   © 
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Qwikload/Save 

For  VIC  And  64 


Richard  L.  Witkover 


Here  is  a  BASIC  program  which  can  drastically  reduce 
your  waiting  time  when  loading  or  saving  large  blocks 
of  data. 


Have  you  ever  sat  staring  at  your  television  set 
while  saving  or  loading  large  blocks  of  data?  If 
you  use  the  GET#  or  INPUT#  commands,  chances 
are  you  have.  It  may  have  taken  only  a  few^ 
minutes,  but  it  seems  like  forever.  You  can  do  it 
ten  times  faster  by  using  the  Kernal  routines  built 
into  your  Commodore  computer. 

First,  you  must  tell  the  Kernal  routine  where 
to  load  the  data,  or  what  section  of  memory  to 
save.  The  Kernal  looks  for  this  information  in  the 
microprocessor's  internal  registers.  These  regis- 
ters can  be  accessed  from  BASIC  via  memory  lo- 
cations 780-782.  The  SYS  command  transfers  the 
contents  of  these  locations  into  the  registers  before 
it  jumps  to  the  machine  language  routine.  Location 
780  corresponds  to  the  accumulator,  781  to  the  X 
register,  and  782  to  the  Y  register.  So,  all  we  need 
to  do  is  POKE  the  information  into  these  locations 
and  SYS  to  the  Kernal  routine.  "Qwikload/Save" 
uses  this  technique  to  access  the  Kernal  routines 
SETLFS,  SETNAM,  LOAD,  and  SAVE. 

Qwikload/Save  allows  you  to  save  any  section 
of  memory  in  the  64  and  up  to  location  32766 
(S7FFE)  in  the  VIC.  Any  files  saved  by  Qwikload/ 
Save  can  also  be  loaded  by  the  program  into  any 
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area  in  RAM.  Either  tape  or  disk  may  be  used. 
Just  type  in  the  program,  SAVE  it,  and  RUN  it. 

How  It  Works 

Lines  100-110  ask  the  user  whether  to  use  tape  or 
disk  and  store  the  answer  in  B$.  Lines  120-130 
ask  whether  to  save  or  load,  storing  the  answer  in 
A$.  Line  140  INPUTs  the  filename  and  stores  it  in 
F$.  Line  144  INPUTs  the  starting  address  of  the 
block  to  be  saved  or  loaded.  Then  the  high  byte 
(AH)  and  low  byte  (AL)  of  the  starting  address 
are  calculated.  Line  147  branches  to  line  500  if 
disk  was  chosen.  Line  150  branches  to  line  300  if 
load  was  chosen. 

Lines  160-200  save  a  block  of  memory  to  tape. 
Line  160  INPUTs  the  end  address  of  the  block  and 
calculates  the  high  byte  (BH)  and  low  byte  (BL). 
Line  190  jumps  to  the  subroutine  at  line  400  to 
open  a  file.  Then  the  high  byte  and  low  byte  of 
the  starting  address  are  POKEd  into  zero  page. 
Line  200  POKEs  location  780  (accumulator)  with 
the  zero-page  address  of  the  low  byte  used  in  line 
190.  This  creates  a  pointer  which  tells  the  computer 
where  to  find  the  starting  address.  The  low  byte 
of  the  end  address  is  POKEd  into  location  781  (X 
register)  and  the  high  byte  into  location  782  (Y 
register).  Then  the  block  is  saved  by  SYSing  to  the 
SAVE  routine  in  the  Kernal.  The  file  is  then  closed 
by  jumping  to  line  330. 

Lines  300-330  load  a  file  from  tape.  Line  300 
opens  the  file.  Line  310  specifies  a  LOAD  by 


POKEing  0  into  location  780  (0  =  LOAD; 
1  =  VERIFY).  The  low  byte  and  high  byte  of  the 
starting  address  are  POKEd  into  locations  781 
and  782,  respectively.  Then  the  file  is  loaded  by 
SYSing  to  the  LOAD  routine.  Line  320  checks  bits 
4  and  5  of  the  STATUS  variable.  If  either  bit  is  set, 
the  file  was  not  loaded  correctly  and  the  message 
?LOAD  ERROR  is  printed.  Line  330  closes  the  file 
and  ends  the  program. 

Lines  400^40  comprise  a  subroutine  which 
opens  a  file  to  the  cassette  recorder  similar  to  the 
BASIC  command  OPEN  1,1,0,F$.  Line  400  POKEs 
the  length  of  the  filename  into  location  183.  The 
end-of-arrays  pointer  is  calculated  and  stored  in 
S.  Line  410  POKEs  the  filename  into  the  free  RAM 
area  just  above  the  arrays.  Line  420  sets  up  the 
logical  file  by  POKEing  the  file  number  into  loca- 
tion 780,  POKEing  the  device  number  into  location 

781,  POKEing  the  secondary  address  into  location 

782,  and  SYSing  to  the  SETLFS  routine.  Line  430 
sets  up  the  filename  by  POKEing  the  filename 
length  into  location  780,  POKEing  the  low  byte  of 
the  end-of-arrays  pointer  into  location  781,  POKE- 
ing the  high  byte  into  location  782,  and  SYSing  to 
the  SETNAM  routine.  Line  440  turns  on  the  tape 
messages  (SEARCHING,  FOUND,  etc.)  by  setting 
bit  7  of  location  157. 

Line  500  branches  to  line  700  if  a  disk  load  is 
chosen.  Lines  530-660  save  a  block  of  memory  to 
disk.  Line  530  INPUTs  the  end  address,  adds  1  to 
it,  and  calculates  the  low  byte  and  high  byte.  It  is 
necessary  to  add  1  to  the  end  address  in  order  to 
save  the  last  byte  of  the  block.  Line  540  OPENs 
the  disk  error  channel.  Line  550  OPENs  a  program 
file  for  writing.  Line  560  checks  for  errors  by 
reading  the  error  channel.  Line  570  branches  to 
line  650  if  no  error  occurs.  Line  580  prints  the  error 
information  and  jumps  to  line  760  to  end  the  pro- 
gram if  the  error  number  is  not  63  (FILE  EXISTS 
ERROR). 

Lines  590-610  ask  whether  the  user  wants  to 
replace  the  file  on  disk  with  the  new  file.  If  not, 
the  program  ends  by  jumping  to  line  760.  Other- 
wise, the  file  is  replaced  by  scratching  the  file  on 
disk  and  saving  the  new  file.  Line  620  scratches 
the  old  file.  Line  630  returns  to  line  540  to  save 
the  new  file.  Lines  650-660  save  the  file  by  POKE- 
ing the  starting  and  ending  addresses  and  SYSing 
to  the  SAVE  routine. 

Lines  700-760  load  a  file  from  disk.  Line  700 
OPENs  the  error  channel.  Line  710  OPENs  the 
program  file  for  reading.  Line  720  reads  the  error 
channel.  If  any  error  occurs,  line  730  prints  the 
error  information  and  ends  the  program.  Line  750 
enables  a  relocatable  load  by  POKEing  a  0  into 
location  185.  Then  the  file  is  loaded  by  POKEing 
the  necessary  information  and 'SYSing  to  the 
LOAD  routine  as  described  for  tape.  Line  760 
closes  the  files  and  ends  the  program. 


Qwikload/Save  For  VIC  And  64 

Refer  to  the  "Automatic  Proofreader"  article  before  t/ping  ttils 

program  in. 

100  PRINT" {CLR}TAPE  or  DISK  (T/D)?"r 

:rem  125 
105  GETB?:IFB$=""THEN105  ! rem  81 

110  IFB?<>"T"ANDBS<>"D"THEN105    : rem  153 
120  PRINTB$ SPRINT" {DOWN} SAVE  OR  LOAD  (S/L 
)?"f  :rein  43 

125  GETA5:IFA$=""THEN125  ! rem  83 

130  IFA5<>"S"ANDA$<>"L"THEN125  : rem  152 
1 40  PR1NTA$ : INPUT " { DOWN } FI LENAME " ? F$ 

: rem  140 

144  INPUT" [DOWN) STARTING  ADDRESS" ;X:AH=IN 

T(X/256) ;AL=X-AH*256  sremlSS 

147  IFB5="D"THEN500  trem  26 

150  IFA$="L"THEN300  :rem  25 

159  REM  TAPE  SAVE  : rem  2  20 

160  INPUT" (DOWN) END  ADDRESS " ;X!X=X+1 : 8H=I 
NT(X/256) tBL=X-BH*256         : rem  171 

190  GOSUB400:POKE251,AL:POKE252,AH!rem  31 

200  POKE780 , 251 : P0KE78I , BL: P0KE782 , BH: SYS 

65496!GOTO330  :rem  247 

299  REM  TAPE  LOAD  s rem  210 

300  GOSUB400  :rem  167 
310  POKE780,0:POKE781,AL:POKE782,AH!SYS65 

493  :rem  131 

320  1F(ST  AND  48) THENPRINT" { DOWN} ?LOAD" : P 

R1NT"ERR0R"  s rem  96 

330  CL0SE1:END  : rem  78 

399  REM  OPEN  TAPE  CHANNEL         : rem  222 

400  L=LEN(FS) :POKE183,L;S=256*PEEK(50)+PE 
EK(49)  :rem  174 

410  FORX=lTOL:POKES+X-l,ASC(MID$(F$,X,l) ) 

:NEXT  :rem  53 

420  POKE780 , 1 : P0KE781 , 1 s  POKE782 , 0 : SYS6546 

6  :rem  209 

430  POKE780,L:POKE781,PEEK(49) :P0KE782,PE 

EK(50) :SYS65469  ; rem  77 

440  P0KE157, 128: RETURN  : rem  69 

500  IFA?="L"THEN700  : rem  28 

5  29  REM  DISK  SAVE  : rem  222 

530  INPUT "{DOWN} END  ADDRESS " ;X ;X=X+1 : BH=I 

NT(X/256) :BL=X-BH*256         : rem  172 
540  OPEN15,8,15,  "10"  :rem  16 

550  OPEN3,8,l, "0:"+F$+",P,W"  trem  157 
560  INPUT#15,EN,EM$,ET,ES  : rem  222 
570  IFEN=0THEN650  ; rem  245 

580  IFEN <  >  63THENPRINTEN ; EM?  f  ET r  ES ; GOTO760 

: rem  153 
590  PRINT "FILE  EXISTS. {2  SPACES } REPLACE  ( 

Y/N)?" ;  :rem  58 

600  GETA?;IFA$=" "THEN600  : rem  79 

610  PRINTA$ :IFAS<> "Y"THEN760  :rem  154 
620  PRINT#15, "S0:"+F5+",P,W"  : rem  222 
630  CLOSE15:CLOSE3:GOTO540  : rem  100 
650  POKE157,128:POKE25I,AL:POKE2  52,AH 

trem  159 
660  POKE780 ,251: POKE781 , BL: POKE782 , BH : SYS 

65496 :GOTO760  : rem  8 

699  REM  DISK  LOAD  s rem  215 

700  OPEN15,8, 15, "10"  :rem  14 
710  OPEN3,8,0,"0!"+F$+",P,R"  : rem  149 
720  INPUT#15,EN,EMS,ET,ES  : rem  220 
7  30  IFENTHENPRINTEN;EM$;ET;ES:GOTO760 

:rem  179 

750  POKE157, 128:POKE185,0;POKE7B0,0:POKE7 

81 ,AL:POKE782,AH:SYS65493     : rem  187 

760  CL0SE3:CL0SE15:END  s rem  109 
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VIC/64  Screenprint 


Frank  C.  Gutowski 


To  cop]/  the  contents  of  your  screen  to  the  printer,  just 
insert  "Screenprint"  into  your  program  as  a  one-line 
subroutine.  Refer  to  the  "Automatic  Proofreader"  article 
before  ti/ping  these  programs  in. 

Using  just  one  line  of  BASIC  and  less  than  80  bytes 
of  memory,  "Screenprint"  opens  the  needed  files, 
captures  the  entire  screen,  sends  it  to  the  printer, 
and  closes  the  files. 

Most  screen  print  routines  follow  this  logic; 

1.  Find  where  the  screen  memory  is. 

2.  Start  PEEKing  screen  locations. 

3.  Convert  screen  code  to  ASCII. 

4.  Assemble  an  ASCII  line  and  send  it  to  the 
printer. 

5.  Repeat  until  the  entire  screen  has  been 
displayed. 

Screenprint  takes  a  different  approach.  By 
treating  the  screen  as  an  input  device,  we  can 
combine  the  first  three  steps  into  one,  creating  a 
compact  yet  powerful  subroutine  that  is  easy  to 
insert  into  any  program. 

Input  From  Screen  Memory 

The  screen  is  normally  the  default  output  device. 
The  VIC  and  64  operating  systems  automatically 
send  keyboard  input  to  the  screen  unless  you 
redirect  it  with  a  CMD  command.  However,  you 
also  can  OPEN  a  screen  file  for  input  and  read 
data  from  screen  memory,  using  some  of  the  same 
commands  and  statements  which  control  input 
from  tape  or  disk. 

Screenprint  opens  a  screen  file  with  OPEN3,3. 
This  does  not  in  any  way  affect  normal  PRINTs  to 
the  screen;  it  just  opens  another  path  (File  3)  to  the 
screen  (device  3).  Now,  statements  like  GET#3  or 
PRINT#3  can  direct  input  or  output  from  or  to 
the  screen.  Once  the  screen  file  is  OPENed, 
Screenprint  uses  GET#3,A$  to  input  a  screen 
character.  The  character  under  the  cursor  at  the 
time  of  the  GET#3  is  assigned  to  the  string  variable 
A$,  and  the  cursor  moves  one  space  to  the  right. 

Dealing  With  Screen  Wraparound 

A  good  feature  of  this  screen  GET  is  that  when  it 
gets  to  the  end  of  a  line,  it  will  read  a  CHR$(13), 
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and  cause  a  carriage  return  to  be  sent  to  the  printer. 
This  means  that  a  line  that  wraps  around  on  the 
screen  will  appear  as  one  line  on  the  printer.  If 
this  is  not  desired,  it  can  be  eliminated  by  inserting 
an  IF-THEN  statement  that  will  cause  carriage 
returns  to  be  ignored. 

This  version  of  One-Line  Screenprint  is  for  VIC: 

10  OPBN3,3:OPEbJ4,4:PRINT"fHOME]";  :FORI=0T 
O505:GET#3,A$:PRINT#4,A?; !NEXT:CL0SE3 j 
CL0SE4 

Program  Explanation 

OPEN3,3:  opens  the  screen  file. 

OPEN4,4;  opens  the  print  file. 

PRINT"[HOMEI";:  places  the  cursor  in  the  home  posi- 
tion for  the  screen  read. 

FORI  =  0TO505:  sets  the  number  of  characters  to 
capture  from  the  screen. 

GET#3,A$:  captures  a  character  from  the  screen  and 
moves  the  cursor  right  one  space. 

PRINT#4,AS;:  prints  the  captured  screen  character 
with  no  RETURN. 

NEXT:CLOSE4:CLOSE3:RETURN:  ends  the  loop, 
closes  the  files  and  returns  to  the  caller, 

For  the  64,  use  this  version  of  One-Line  Screenprint: 

10  OPEN3,3:OPEN4,4;PRINT"EhOME1"? :FORI=0T 
0999;GET#3,A$tPRINT#4,A$; : NEXT: CLOSES : 
CL0SE4 

To  get  all  this  on  one  line  in  the  64,  you'll  need  to 
abbreviate  some  of  the  BASIC  keywords.  For  ex- 
ample, O  SHIFT-P  can  stand  for  OPEN,  a  question 
mark  can  be  substituted  for  PRINT,  P  SHIFT-R  for 
PRINT#,  etc. 

Printing  Reversed  Characters 

The  GET  statement  puts  ASCII  numbers  into  A$, 
not  the  screen  code,  so  you  can  send  the  characters 
to  the  printer  without  translation.  However,  re- 
versed characters  do  not  have  distinct  ASCII  num- 
bers; these  are  returned  as  normal  characters.  If 
you  must  have  a  screen  print  with  reversed  char- 
acters, you  will  need  another,  longer  routine.  We 
must  find  where  screen  memory  is  (on  the  VIC), 
then  look  at  each  screen  code  to  see  if  it  is  greater 
than  127  (reversed  character).  If  the  character  is 
reversed,  we  have  to  send  the  appropriate  com- 
mands to  make  the  printer  go  into,  then  out  of, 
reverse  mode. 


Those  of  you  who  want  an  exact  copy  of  the 
screen,  including  low-resolution  graphics  and 
reversed  characters,  can  use  the  screen  copy 
routines  below.  The  control  characters  sent  are 
set  up  for  the  1515  and  1525  printers,  but  may  be 
changed  for  other  printers. 


VIC  Screen  Copy 

100  PRINT" {HOME}"; : SS={ PEEK ( 210 ) )* 
N3,3:OPEN4,4  : 

110  FORR=0TO2  2:B?="" 

120  FORC=0TO21:A$="" 

130  IFPEEK(SS+( (R*22)+C) )>127THEN: 
$;B$=B$+CHR$(18)+A$+CHR$(146) : 

140  GET#  3 , A$ : I FA$=CHR$ (13) THEN  s  A$  = 

150  B$=B$+A$ 

160  NEXTC : PRINT#4 , B? :NEXTR:  CL0SE4  i 


64  Screen  Copy 

100  PRINT" [HOME)"; : SS=( PEEK( 210) )*256 lOPE 


256:OPE 

rem  : 

236 

:rem 

96 

:rem 

80 

GET#3,A 

GOTO160 

:  rem 

61 

,  fl    M 

rem  : 

204 

:  rem 

47 

CLOSES 

srem 

91 

110 

120 
130 


140 

150 
160 


N3,3:0PEN4,4  : 

FORR=0TO24!B$="" 

FORC=0TO39;A$="" 

IFPEEK(SS+( (R*40)+C) )>127THEN; 

$ : B$=B$+CHR$ ( 18 ) +A$+CHR? ( 146 ) 


:rem  236 

:rem  98 

:rem  89 

:GET#3,A 

;GOTO160 

: rem  61 

GET#3,A$:IFA$=CHR$(13)THEN:A$="  " 

;rem  204 
B$=B$+A$  :rem  47 

NEXTC :PRINT#4,B$:NEXTR:CLOSE4:CLOSE3 

: rem  9 1 

Lines  100-120:  put  the  cursor  to  home  posi- 
tion, find  the  start  of  screen  memory  (SS),  open 
the  needed  files,  and  set  the  row  and  column 
pointers . 

Line  130:  look  at  the  screen  memory.  When  a 
screen  character  greater  than  127  is  found,  it  must 
be  a  reversed  character.  The  character  is  then  cap- 
tured and  added  to  string  BS  between  a  [RVS] 
and  [OFF]  character. 

Lines  140-150:  capture  all  nonreversed  char- 
acters, remove  CHRS(13),  and  add  the  captured 
character  to  the  print  string  BS. 

Line  160:  send  the  strings  to  the  printer,  close 
the  files  and  return. 

Screenprint  In  Action 

Programs  1  and  2  are  demonstration  programs 
which  use  both  subroutines.  Once  LOADed  and 
RUNning,  just  key  in  anything  you  wish,  even 
create  a  graphics  picture  using  graphics  characters . 
When  you  desire  a  copy,  the  fl  key  will  call  One- 
Line  Screenprint.  The  f3  key  will  call  Screen  Copy. 
This  will  print  the  screen  including  reversed  char- 
acters and  no  line  wrap. 

Necessary  Changes 

To  add  either  routine  to  your  existing  programs, 
add  these  lines  any  place  you  want  the  Screenprint 
option: 


100  GETA$:IFA?=CHR$C 133) THEN  G0SUBxxx:A5= 

II         II 

110    IFA$=""THEN100 

These  lines  call  the  Screenprint  subroutine  if  the  fl 
key  is  depressed.  Any  other  key  will  cause  the 
program  to  continue.  Replace  the  xxx  with  the  line 
number  of  the  selected  Screenprint  subroutine. 

Don't  forget,  you  can  use  the  disk  or  tape  as 
an  output  or  input  device  just  as  easily  as  the 
screen.  With  a  few  modifications  to  Screenprint, 
you  could  be  transferring  screens  of  data  to  and 
from  any  device.  That  could  make  for  some  inter- 
esting and  powerful  applications,  using  only  a 
few  program  lines. 

Program  1:  vie  Screenprint  Demo 

200  0PEN3,3:OPEN4,4:PRINT"{CLR}KEy  IN  ANY 

THING"  :rem  214 

210  PRINT" { RVS }F1=0NE  LINE  SCREEN ": PRINT" 

[3  RIGHT} {RVS] PRINT  SUB{ OFF } " : rem  113 

220  PRINT" [RVS 1f3=SCREEN  C0PY[0FF}" 

:rera  186 
2  30  GETA$ : IFA?=CHR$ ( 133 ) THENGOSUB260 :A$=" 

jrera  149 
240  IFA$=CHR$(134)THENGOSUB270:A$="" 

;rem  25 

250  PRINTA$r :A$="":GOTO230        : rem  236 

260  PRINT" [home}"; : FORI=0TO505 :GET#3 , A$ j P 

RINT#4,A$; : NEXT: RETURN         srem  73 

270  PRINT" {HOME}"; ! SS=(PEEK( 210 ) ) *256 

:rem  246 

280  FORR=0TO22:B$=""  : rem  104 

290  FORC=0TO2iiA$=""  :rem  88 

300  IPPEEK(SS+((R*22)+C))>127THEN:GET#3,A 

$ : B$=B$+CHR$  C 18) +A$+CHR$ ( 146 ) :GOTO330 

:rem  59 
310  GET#3,A5:IFA$=CHR$(13)THEN:A$="  " 

:rem  203 
320  B$=B5+A$  :rem  46 

330  NEXTCs PRINT#4,B? !NEXTR:RETURN:rem  173 

Program  2: 64  screenprint  Demo 

200  OPEN3,3tOPEN4,4:PRINT"{CLR}KEY  IN  ANY 

THING"  :reni  214 

210  PRINT" {RVS}F1=0NE  LINE  SCREEN  PRINT  S 

UB{oFF}"  srem  253 

220  PRINT" {RVS}F3=SCREEN  COPY{orF}" 

srern  186 
230  GETA$ : IFA$=CHR$ ( 133 )THENGOSUB260 ;A?=" 
"  srem  149 

240  IFA$=CHR$(134)THENGOSUB2  70;A$="" 

:rem  25 

250  PRINTA$; :A$="":GOTO230        srem  236 

260  PRINT" {HOME} "; :FORI=0TO999 : GET#3 , AS : P 

RINT#4,A$f t NEXT: RETURN         : rem  90 

270  PRINT" {HOME}"; :SS= (PEEK( 210 ) )*256 

:rem  246 

280  FORR=0TO24:B$=""  :rem  106 

290  FORC=0TO39:A$=""  : rem  97 

300  IFPEEK(SS+( (R*40)+C) ) > 127THEN: GET#3 , A 

$:B$=B$+CHR5(18)+A$+CHR$(146) :GOTO330 

:rem   59 
310    GET#3,A$:IFA$=CHR$U3)THEN:A$  =  "     " 

srem    203 
320    B$=B$+A$  :rem   46 

330    NEXTC: PRINT#4,B$:NEXTR: RETURN: rem   173 

© 
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VIC®  20  OWNERS 


Fulfill  the 
expansion  needs 
of  your  computer 
i    with  the 

f  RAM-SLOT 
MACHINE 


This  versatile  memory  and  slot  expansion  peripheral 
for  the  Commodore  Vic-20  Computer  consists  of  a 
plug-in  cartridge  with  up  to  24KBytes  of  low  power 
CMOS  RAM  and  3  additional  expansion  slots  for 
ROM,  RAM  and  I/O.  The  cartridge  also  includes  a  re- 
set button  (eliminates  using  the  power-on  switch) 
and  an  auto  start  ROM  selection  switch. 

#RSM-8K,  8K  RAM  +  3  slots S  84,50 

#RSM-16K,  16K  RAM  +  3  slots  . .  . .  S  99.50 
#RSM-24K,  24K  RAM  +  3  slots  ....  $118.50 

We  accept  checks,  money  order,  Visa/Mastercard.  Add 
$2.50  for  shipping,  an  additional  $2.50  for  COD.  Mich- 
igan residents  add  4%  sales  tax.  Personal  checits— 

allow  10  days  to  clear.  '  Trademark ol commodore. 


ELECTRONICS  DESIGN  CORPORATION 

3990  Varsity  Drive  ■  Ann  Arbor.  Ml  48104  .(313)973-6266 
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Commodore  64 

and 

ViC-20 


Telecommunications 


>/vitli  a  difference! 

Unexcelled  communications  power  and 
compatibility,  especially  for  professionals  and 
serious  computer  users.  Look  us  over;  SupeiTerm 
isn't  Just  "another"  terminal  program.  Like  our 
famous  Terminal-40,  it's  the  one  others  wifl  be 
Judged  by. 

•  EMUL>\TrorJ— IVlost  popular  terminal  protocols; 
cursor  addressing,  clear,  home,  etc. 

•  EDITING— Full-screen  editing  of  Receive  Buffer 

•  UP/DOWNLOAD  FORM  ATS- CBM.Xon-Xoff. 
ACK-NAK,  CompuServe,  etc. 

•  FLEXIBILITY-Selea  baud,  duplex,  parity,  stopbits, 
etc.  Even  work  off-line,  then  upload  to  system! 

•  DISPLAY  MODES-40  column;  80/132  w/tfi 
side-scrolling 

•  FUNaiON  KEYS -8  standard,  52  user-defined 

■  BUFFERS— Receive,  Transmit,  Program,  and  Screen 
'  PRINTING  — Continuous  printing  with  Smart  ASCII 

interface  and  parallel  printer:  buffered  printing 

otherwise 

•  DISK  SUPPORT— Directory.  Copy,  Rename,  Scratch 

Options  are  seleaed  by  menus  and  EXEC  file.  Software     • 
on  disk  with  special  cartridge  module.  Compatible  with 
CBM  and  HES  Automodenis;  select  ORIG/ANS  mode, 
manual  or  autodial. 

Write  for  the  full  story  on  SuperTerm;  or.  If  you 
already  want  that  difference,  order  todayl 

Requires:  Commodore  64  or  VIC-20,  disk  drive  or  Datasette,  and 
compatible  rnodem.  VIC  version  requires  I6K  memory  expansion.  Please 
specify  VIC  or  64  when  ordering. 

■■■■■■■■■■■■■■■I 

Smart  ASCII  Plus  .. .  $59'-= 

The  only  Interface  which  supports  streaming  —sending 
characters  simultaneousfy  to  the  screen  and  printer  —  with 
SuperTerm. 

Also  great  for  use  with  your  own  programs  or  most 
application  programs,  i.e.,  word  processors.  Print  modes: 
CBM  Graphics  [w/many  dot-addr  printers),  TRANSLATE, 
DaisyTRANSLATE,  CBIM/True  ASCII,  and  P(FEUr\IE. 

Complete  with  printer  cable  and  manual.  On  disk  or  cassette. 
VIC  20  and  Commodore  64  are  trademark  o(  Commodore  Electronics,  Ltd. 


(816)  333-7200 

MIDWEST 
MICRO  mc 


Send  lor  a  tree  brochure. 

MAIL  ORDER;  Abd  I150  shipping  and 
handling  (Ji50  for  C.O.D.);  VISA/Mastercard 
accepted  (card#  and  eip,  date).  MO  residents 
add  5.625%  sales  tax.  Foreign  orders  payable 
U,S.$.  U.S,  Bank  ONLY;  add  i&  shp/hndlg. 


^^  311  WEST  72nd  ST.  »  KANSAS  CITY  •  MO  •  64114 


Advanced 

Disk  Logging 

On  The  64 

Jim  Butterfield,  Associate  Editor 


"Disk  Log  64"  provides  you  with  access  to  some  useful 
data  in  the  disk  directory  which  is  not  available  via  the 
usual  BASIC  commands. 


There's  information  on  disk  that  you  can't  get 
with  an  ordinary  catalog  sequence 

LOAD  "S",8 
LIST 

Often  it  doesn't  matter.  At  other  times,  you 
find  yourself  wishing  that  you  could  get  at  the 
data. 

','Disk  Log  64"  allows  you  to  do  that.  It's  set 
up  specifically  for  the  64,  and  will  give  you  a. lot 
of  information. 

Programs 

On  program  files,  you'll  get  start  and  end  ad- 
dresses, in  hexadecimal.  That's  the  most  conven- 
ient way  to  read  them.  You  might  use  these  ad- 
dresses to  help  you  make  a  copy  of  special  overlay 
files  that  are  often  used  in  music  and  graphics. 
(See  "Complex  Disk  Copies  For  The  64"  in  this 
issue.)  Note  that  the  "end"  address  is  actually 
one  location  higher  than  the  true  end;  that's  the 
way  they  are  most  commonly  used.  So  if  you  see 
that  a  program  goes  from  $0801  to  $1039,  you 
know  that  the  last  byte  is  actually  at  $1038;  $1039 
is  the  first  available  memory  location.  Don't  forget 
that  these  are  hexadecimal  numbers. 

If  you  have  a  mixed  disk  of  programs,  you 
can  often  guess  what  type  of  systems  the  programs 
were  written  on.  PET/CBM  programs  will  start  at 
$0401;  programs  written  on  the  minimum  VIC 
will  start  at  $1001.  A  VIC  with  a  3K  expansion  will 
write  programs  that  start  at  $0401,  like  the  PET; 
but  if  8K  or  more  is  added,  then  programs  will 
start  at  $1201.  You'll  note  that  conventional  64 


programs  begin  at  $0801,  but  there  can  be  excep- 
tions. Character  sets,  high-resolution  graphics, 
music,  and  machine  language  programs  can  be 
loaded  into  unusual  memory  locations  with  a 
LOAD  "NAME", 8,1  type  of  command;  and  then 
it  will  be  useful  to  know  where  such  data  blocks 
or  programs  are  being  used. 

In  normal  circumstances,  programs  relocate 
when  loaded  into  the  64  (or  VIC,  for  that  matter). 
If  you  use  a  conventional  LOAD  from  disk,  the 
start  address  doesn't  matter  too  much:  The  pro- 
gram will  be  moved  over  to  the  start-of-BASIC 
location — normally  $0801. 

Sequential  And  User  Files 

On  this  type  of  file.  Disk  Log  64  counts  the  bytes 
for  you.  No  big  deal,  but  sometimes  this  is  more 
useful  than  the  related  coarse  measure,  block 
count.  There  are  about  254  characters  stored  in 
each  disk  sector,  but  the  last  sector  is  often  partially 
full.  An  exact  character  count  can  also  help  you 
refine  file  estimates. 

A  user  (USR)  file  is  identical  to  a  sequential 
(SEQ)  file,  except  that  it  is  named  as  type  USR 
when  it  is  written.  Why  would  a  programmer 
bother?  Usually  to  mark  that  there  is  something 
unusual  about  this  file.  For  example,  a  file  written 
as  packed  binary  should  probably  be  written  as  a 
USR  file  to  warn  programmers  that  they  cannot 
list  it  in  the  usual  way. 

Relative  Files 

Relative  files  may  be  written  on  the  1541,  and  if 
they  are  found  there.  Disk  Log  64  gives  some  very 
useful  information  which  is  not  available  else- 
where. First,  it  gives  the  file's  record  length — the 
standard  size  set  for  each  record  of  this  file.  For 
example,  L  =  45  would  mean  that  each  record  is 
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set  to  not  more  than  45  characters  on  the  relative 
file.  Following  this,  the  program  gives  the  number 
of  records  existing  on  the  file. 

Machine  Language  Aids 

This  program  builds  machine  language  aids  into 
the  cassette  buffer.  It  then  calls  them  in  tw^o  dif- 
ferent ways. 

Relative  file  records  are  counted  using  the 
SYS  command  in  line  740.  The  machine  language 
program  places  the  record  count  that  it  finds  in 
locations  139  and  140,  where  BASIC  picks  it  up. 

Files  which  are  not  relative  are  measured  for 
size  using  the  USR  command  in  line  760.  The 
machine  language  program  carefully  places  the 
answer — the  number  of  characters  in  the  file — into 
a  series  of  locations  called  the  Floating  Point  Ac- 
cumulator. This  value  is  given  to  BASIC  the  mo- 
ment that  the  USR  function  returns.  Note  that  the 
USR  vector  is  set  up  in  line  760  with  POKEs  to 
addresses  785  and  786:  The  Commodore  64  differs 
from  all  previous  machines  in  this  area,  since  PET, 
CBM,  and  VIC  would  use  addresses  1  and  2  for 
the  same  purpose. 

The  program  has  been  checked  out  with  a 
standard  64  equipped  with  disk  and  printer.  It 
should  work  on  interfaces  which  give  access  to 
the  IEEE  bus,  but  not  all  combinations  have  been 
tested. 

Disk  Log  64 

100  DIMT?(4)  (rem  104 

110  PRINT"DISK  FILE  LOG"  i rem  144 

130  C?=CHR?(0)  :rem  186 

140  DATA169, 0,162,4, 149, 98, 202, 16,  251 

jrem  78 
145  DATA169,160,133,97,162,2,32,198,255 

irera  192 
150  DATA2 30, 101, 208, 10, 230, 100, 208, 6, 2 30, 

99  :rem  91 

155  DATA20B, 2 , 230, 98, 32 , 228, 255, 165  ,  144 

:rein  185 
160  DATA240,235,32,204,255,198,97irem  146 
165  DATA6, 101, 38, 100, 38, 99, 38, 98, 16, 244, 9 

6  I  rem  91 

170  DATA169, 0,133, 139, 133, 140  :rem  190 
180  DATA230,139,208,2,230,140  i rem  183 
190  DATA162, 15, 32, 201, 255, 169, 80, 32, 2 10, 2 

55  : rem  111 

200  DATA169, 4, 32, 210, 25 5, 165, 139, 32, 210, 2 

55  srem  109 

205  DATA165,140,32,210,255  srem  38 
210  DATA169,1,32,210,255,32,204,255 

jrem  221 
215  DATA162,15,32,198,255,32,228,255 

srem  37 
220  DATA72, 32, 204, 255, 104, 201, 48, 240, 200, 

96  :rem  101 

230  FORJ=a60TO977 :READXiT=T+X!POKEJ,X:NEX 

TJ  irem  53 

240  IFT0  16  312THENSTOP  r  rem  101 

250  DATA"XXX", "SEQ" , "PRG" , "USR" , "REL" 

I  rem  108 
260  FORJ=0TO4  5READT$(J)  :N.EXT  :  rem  239 
270  INPUT"PRINTER";Z$  :rem  74 
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280 

290 

300 
330 

340 
350 
360 
370 
380 

390 

400 
410 

420 
430 

440 

450 
460 

470 
480 
490 
500 
510 
530 
550 

560 
570 
580 

620 
630 

640 
650 
660 

670 

680 
690 
700 
710 
730 
740 

750 

760 

770 

780 

790 
800 
810 
820 
830 

840 
850 

860 


Z=3 : IFASC(Z$ )=89THENZ=4  « INPUT"DATE" ;D 

5  :rem  74 

U=8:REM  UNIT  8  : rem  251 

D=0;REM  DRIVE  0  : rem  12 

0PEN4,Z;0PEN1,U,15, "I "+CHR$ (D+48 ) :CLO 
SEl  jrem  36 

G?  =  "{17  SPACES}"  I  rem  131 

OPEN15,U,15  :rem  67 

OPENl,U,3,"$"+CHR$(D+48)  srem  200 
GET#1,A$!A=ASCCA$+"  ")  srem  19 
IPA=lORA=65THENLl=14l5L2=89sGOTO410 

srem  80 
IFA=67THENLl=3!L2=735!GOTO410srem  206 
CLOSEl SPRINT"???" sSTOP  srem  131 
PRINT#4,"***  DISK  LOG  ***{2  SPACES}"; 
D$  srem  149 

F0RJ=lT0LlsGET#l,A?5NEXTJ  srem  23 
PRINT#4, "f2  SPACES}"; sF0RJ=lT023 sGET# 
1,A$!PRINT#4,A$; sNEXTJ  srem  179 
PRINT#4;FORJ=lTOL2tGET#l,A$;NEXTJ 

srem  56 
M=M+lsGET#l,K$,T$,S$  srem  28 

L7=-l:Z$=CHR$(160)sF$=""iFORJ=lTO16!G 
ET#1,A$  srem  157 

IFA$=Z$THENL7=0  srem  105 

IFL7THENF$=F$+A$  srem  126 

NEXTJ  srem  38 

GET#l,A$,A$,A$sL%=ASC(A$+C$)  srem  131 
FORJ=lT06sGET#l,A5sNEXTJ  s rem  208 
GET#1,A$ :L=ASC(A$+C$)  srem  63 

GET#1,A5  sL=L+256*ASC(A$+C$)  sIFMOTHEN 
GET#l,A$,A$sGOTO570  srem  157 

M=0  srem  85 

SW=STsIPKS=""GOTO820  srem  182 
K=ASC (K? ) -128  s IFK<1ORK>4THENK=0 

srem  74 
PR1NT#4,T$(K)  srem  188 

PRINT#4,RIGHT$C"  "+STR$ (L) , 3 ) ; "  "; 

srem  222 
PRINT#4,LEFT${F$+G$,17);  srem  25 
IFK=0GOTO810  srem  180 

IFK=4THENPRINT#4, "L=" ; MID$ ( STR$ (L%) , 2 
) ;  srem  245 

0PEN2 , U , 4 , CHR? ( D+48 ) + " s "+P$+ " , " +T$ ( K ) 

srem  83 
A=0sIFK<>2GOTO730  srem  223 

GET#2,A$,B$!A=ASCCA$+C?)  srem  206 
B=ASC(B$+C$)  srem  54 

GOSUB840  srem  180 

IFKO4GOTO760  srem  248 

SYS915sA=PEEK(139)+PEEK(140)*256-l 

srem  95 
PRINT#4, ", "rMID$(STR$(A),2);"R";sG0T0 
800  srem  202 

POKE785 , 92  s  POKE786 , 3  s A=A+USR( 0 ) 

srem  19 
IFKo  2THENPRINT#4 , A ; "BYTES " ; s  GOTO800 

srem  240 
PRINT#4,"  "; sA%=A/256tA=A-A%*256sB=B+ 

srem  247 

srem  188 
srem  64 

srem  125 
IFSW=0GOTO450  :rem  18 

INPUT* 15, As CLOSEl 8 PRINT#4, CHR? (13) sCL 
OSE4sCLOSE15sEND  srem  13 

X=B/l6sGOSUB850sX=A/16  srem  6 
F0RJ=lTO2sX%=XsX=(X-X%)*16sIFX%>9THEN 
X%=x%+7  «rem  149 

PRINT#4,CHR$(X%+48) ; s NEXTJ i RETURN 

trem  44  Q 


A% 

GOSUB840 
CL0SE2 

PRINT#4 


COMPLEX 

DISK  COPIES 

For  The  64 

Jim  Butterfield,  Associate  Editor 


Copying  unusual  disk  files  is  easier  if  you  know  what  to 
look  for  and  where  to  find  it. 


Conventional  programs  can  be  easily  copied,  even 
if  you  have  only  one  disk  drive.  You  just  LOAD 
the  program,  insert  another  disk,  and  SAVE.  But 
sometimes  it  doesn't  work  quite  that  easily. 

For  example,  the  64  DOS  Wedge  seems  to 
give  trouble.  The  LOAD  goes  easily,  but  the  SAVE 
seems  to  hang  up.  Many  demonstration  programs 
come  in  pieces — and  one  program,  often  labeled 
BOOT  in  the  name,  does  the  job  of  bringing  in  all 
the  various  chunks  so  the  whole  program  can  be 
staged. 

If  you  have  a  dual  disk,  the  job  is  easy.  You 
give  the  COPY  command,  and  the  disk  moves  the 
program  you  have  named  from  one  drive  to  the 
other.  You  don't  need  to  know  where  the  program 
will  be  located  when  it  loads — an  identical  copy 
will  be  made. 

On  a  single  drive,  a  backup  program  might 
be  used.  It  copies  everything  and  takes  quite  a 
while  to  run.  Then  you'd  need  to  delete  the  stuff 
you  didn't  want,  and  you'd  need  to  start  with  a 
fresh  disk.  But  you  could  work  it  that  way. 

You  could  use  a  copying  utility,  With  a  pair 
of  1541  disks,  you  might  run  COPY-ALL64.  With 
one  disk,  you'd  need  some  other  kind  of  program. 

Or  you  could  learn  a  little  more  about  how 
programs  are  loaded  into  memory,  and  arrange 
to  do  your  own  custom  copying. 

Special  Cases 

The  first  thing  you'd  need  to  do  is  to  spot  the  spe- 
cial programs  which  need  to  be  copied  with  care. 
Often,  the  word  BOOT  in  the  name  suggests  that 
something  is  afoot  (no  pun  intended).  If  you  are 
instructed  to  LOAD  in  nonrelocatable  format 
(LOAD  "PROG", 8,1),  you  may  be  sure  that  there's 
something  nonstandard  about  the  memory  ad- 
dresses involved.  If,  when  you  run  a  program. 


the  disk  starts  to  run,  there's  a  good  chance  that 
the  program  is  loading  other  "overlay"  program 
segments.  Or,  if  you  make  a  copy  with  LOAD 
and  SAVE  and  it  doesn't  work,  it's  a  safe  bet  that 
there's  something  you  need  to  look  into. 

I  don't  plan  to  talk  about  protection  schemes 
here.  If  you  have  a  piece  of  commercial  software 
that  won't  copy,  this  article  won't  help.  If  you're 
unhappy  about  not  being  able  to  make  a  backup 
copy,  write  the  softv^^are  supplier,  because  I'm 
not  going  to  help  you  on  that  problem. 

First,  you  need  to  identify  if  there  is  one  pro- 
gram or  a  group  that  needs  special  treatment.  If 
there's  a  BOOT  program,  load  it  and  list  it.  You'll 
see  that  this  program's  job  is  to  load  in  the  whole 
set  of  programs  to  do  the  job.  For  example,  the 
program  CHAR  BOOT  on  the  Commodore  Disk 
Bonus  Pack  shows  that  three  other  programs  are 
to  be  loaded  in: 

LOAD  "  ROTATE.DATA",8,l 
LOAD  "  STANDARD.SET",8,1 
LOAD  "  CHAR  EDITOR",8 

Note  that  the  first  two  in  the  list  are  to  be  loaded 
without  relocation  (the  extra  ,1).  CHAR  BOOT 
and  CHAR  EDITOR  are  to  be  loaded  in  the  normal, 
relocatable  way. 

Conclusion:  We  may  copy  CHAR  BOOT  and 
CHAR  EDITOR  with  conventional  LOAD  and 
SAVE  commands  (be  careful  of  the  names).  But 
we  must  use  special  techniques  to  copy 
ROTATE.DATA  and  STANDARD. SET, 

Extracting  Vitai  Statistics 

Once  you've  found  a  program  that  needs  special 
handling  to  copy,  you  must  find  out  more  about  it. 
The  best  approach  is  to  use  the  program  "Disk 
Log  64"  (elsewhere  in  this  issue).  It  will  neatly 
give  you  the  start  and  end  addresses  that  you  will 
need  to  make  a  good  copy.  The  addresses  are  in 
hexadecimal.  Don't  worry  about  the  alphabetic 
letters:  Just  note  the  details  down  carefully. 
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If  for  some  reason  you  can't  use  Disk  Log  64, 
you  can  try  the  following  quick  procedure.  Enter 
this  program: 

100  INPUT    "PROGRAM  NAME";N$ 

110  OPEN    1,8,2,N$ 

120GET#1,A$,B$:CLOSE    1 

130C$  =  CHR$(0) 

140  A  =  ASC(A$  +  C$)/4096  +  ASC(B$  +  C$)/16 

150  PRINT    "PROGRAM  START  ADDRESS  IS:  " 

160  FOR    J  =  l    TO    4 

170  A%  =  A:A  =  (A-A%)»16:IF  A%>9   THEN 

A%=A%+7 
180  PRINT    CHR$(48  +  A%);:NEXT  J 

This  will  give  you  the  start  address,  which  is  half 
of  the  story. 

To  get  the  end  address,  you  must  have  a  moni- 
tor loaded  into  your  system  (you'll  need  one  later, 
anyway). 

LOAD  the  program  in  question  and  go  di- 
rectly to  the  monitor  (SYS  8  usually  does  the  trick). 
Now  inspect  hexadecimal  addresses  002D  and 
002E.  You  do  this  with  the  command  ".M  002D 
002E"  which  will  give  you  a  line  starting  with 
address  $002D  and  containing  eight  two-digit 
hexadecimal  numbers.  Write  down  the  first  two 
numbers,  but  in  reverse  order.  In  other  words,  if 
the  numbers  are  33  4A,  write  down  4A33.  That's 
the  end  address — one  location  past  the  end  of  the 
program. 

But  it's  much  easier  to  use  Disk  Log  64. 


Program  Your  Own  EPROMS 


VIC  20 
C64 


$99.50 


(1) 

to 

C 

(1) 
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2 
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PLUGS  INTO  USER  PORT 
NOTHING  ELSE  NEEDED. 
EASY  TO  USE.  VERSATILE. 

•  Read  or  Program.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD, 

SAVE,  GET  INPUT,  PRINT  CMD, 

OPEN,  CLOSE— EPROM  FILES! 

Our  software  lets  you  use  familiar  BASIC  commands  to 

create,  modify,  scratcfi  files  on  readily  available  EPROM 

cfiips.  Adds  a  new  dimension  to  your  computing  capability. 

Works  with  most  ML  Monitors  too. 

•  Make  Auto-Start  Cartridges  of  your  programs. 

•  Tfie  promenade"  01  gives  you  4  programming  voltages, 
2  EPROM  supply  voltages,  3  intelligent  programming 
algorithms,  15  bit  cfnip  addressing,  3  LED's  and  NO 
switches.  Yourcomputer controls  everything  from  software! 

•  Textool  socket.  Anti-static  aluminum  housing. 

•  EPROMS,  cartridge  PC  boards,  etc.  at  extra  charge. 
Some  EPROM  types  youcan  use  with  the  promenade" 

5133 
5143 
2815' 
281 6- 

P«^^^  tfhclttcdlly  erAMaU  lypss 


2756  2332 

8516  2732 

2716  27C32 

27C16  Z732A 


■)62732P 
2564 
2764 
27C64 


27128 
27256 
68764 
66766 


X2aieA- 
52ai3- 
4801 6P- 
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Making  The  Copy 

Now  you  have  the  vital  start  and  end  addresses, 
the  rest  is  easy.  Be  sure  you  have  a  machine  lan- 
guage monitor  in  place. 

Load  the  program  in  question,  using  the 
nonrelocate  ",1"  suffbc  (LOAD  "NAME",8,1). 
Place  the  new  disk  into  the  drive,  and  be  sure  it's 
formatted.  Go  to  the  monitor.  Save  the  program 
using  the  start  and  end  addresses.  The  format  for 
saving  to  disk  on  most  monitors  is: 

.S  '0:PROGNAME",08,1234,4A33 

The  0:  ahead  of  the  program  name  specifies  drive 
0;  this  doesn't  hurt,  and  sometimes  it  helps.  Make 
sure  you  get  the  program  name  right.  The  disk 
device  number,  8,  must  be  typed  in  as  two  digits, 
08.  The  start  and  end  addresses  should  be  typed 
in  as  shown. 

That's  all  there  is  to  it.  Return  to  BASIC  vdth 
the  command  ".X". 

Wrinkles 

Once  in  a  while,  you  get  a  program  that  resides  in 
exactly  the  same  part  of  memory  as  the  monitor. 
For  example,  Supermon64  normally  takes  up  resi- 
dence at  addresses  $97ED  to  $9FFF.  If  you  are 
using  this  monitor  and  a  program  is  loaded  to  the 
same  memory  area,  you'll  have  trouble  with  the 
monitor.  Change  monitors  or  set  up  the  monitor  in 
a  new  place  (Supermen  can  be  moved  by  doing  a 
little  intelligent  fiddling  with  addresses  55  and  56 
[decimal]  before  running  the  Supermon  builder). 

You  may  run  across  programs  on  cassette 
tape  that  you'd  like  to  transfer  to  disk  using  the 
same  techniques.  Not  hard:  LOAD  the  cassette 
tape  program  (use  the  extra  ",1"  again),  and  then 
PEEK  addresses  829,  830,  831,  and  832.  Ask  some- 
one who  knows  about  hexadecimal  numbers  to 
translate  these  decimal  contents  into  hex  for  you; 
the  first  two  give  the  start  address,  the  last  two 
give  the  end  address.  Or  use  the  machine  language 
monitor  to  display  addresses  $033D  to  $0340 — it's 
the  same  place  and  you'll  get  the  hex  values  right 
away.  Again,  reverse  each  pair  of  bytes.  If  the 
locations  show  as  24  68  25  69,  then  start  is  at  $6824 
and  end  is  at  $6925.  If  the  program  won't  LOAD 
without  automatically  running,  it's  probably  copy- 
protected and  you  shouldn't  try  to  copy  it  anyway. 

If  you  don't  have  a  monitor,  get  one.  Super- 
mon64,  for  example,  has  been  published  in  COM- 
PUTE!, is  on  the  Disk  Bonus  Pack,  and  is  in  many 
club  libraries.  Other  monitors  are  available  for 
sale.  Even  if  you  don't  quite  know  how  to  use  it 
yet,  it's  handy  to  have  around. 

We've  looked  at  methods  of  spotting  and 
copying  difficult  programs.  And  we've  also  had  a 
chance  to  look  a  little  further  into  the  inner 
workings  of  the  computer.  0 


Atari  Display  List  interrupts 


Karl  E.  Wiegers 


This  tutorial  explains  how  to  use  the  Atari  Display  List 
Interrupt  to  create  sophisticated  graphics  displays,  with 
multicolored  screens  and  special  character  sets. 


The  Display  List  Interrupt  (DLI)  is  one  of  the  most 
powerful  graphics  features  of  the  Atari  400/800/ 
1200  computers.  DLIs  can  be  used  to  create 
sophisticated  displays,  with  elaborate  vertical 
screen  architecture  and  the  simultaneous  display 
of  many  colors.  DLIs  also  permit  the  display  of 
multiple  character  sets  in  different  parts  of  the 
screen,  and  they  can  also  be  used  to  create  sound 
effects.  Creative  use  of  DLIs  is  the  reason  for  the 
complexity  of  many  Atari  games. 

The  Display  List  Interrupt  takes  advantage  of 
the  way  the  television  display  operates.  After  the 
TV's  electron  beam  scans  horizontally  across  the 
width  of  the  screen,  it  is  turned  off  very  briefly 
while  it  returns  to  the  opposite  edge  and  moves 
down  slightly  to  draw  the  next  scan  line.  During 
the  few  microseconds  that  the  electron  beam  is 
off,  it  is  possible  to  execute  a  very  short  machine 
language  program,  a  Display  List  Interrupt 
routine.  In  this  brief  time,  such  routines  can  do 
little  more  than  change  the  value  stored  in  a  color 
or  sound  register,  but  this  can  create  some  exciting 
effects. 

DLI  From  BASIC 

Atari  computers  control  video  output  with  a  spe- 
cial microprocessor  chip  called  ANTIC.  ANTiC 
obtains  its  instructions  from  a  small  area  in  RAM 
containing  the  display  list.  The  display  list  is  simply 
a  list  of  numbers  which  tells  ANTIC  what  graphics 
mode  to  use  for  each  of  the  192  TV  scan  lines  in 
the  standard  Atari  display,  where  to  find  the  in- 
formation to  be  displayed,  and  so  on. 

As  an  example,  the  display  list  for  graphics 
mode  0  contains  32  numbers,  of  which  the  seventh 
through  twenty-ninth  are  instructions  to  display 
a  mode  0  mode  line,  each  of  which  consists  of  eight 
TV  scan  lines. 

The  display  list  instructions  are  not  the  same 
as  the  BASIC  graphics  mode  numbers;  for  BASIC 


mode  0,  the  display  list  instruction  is  a  "2". 
The  display  list  is  different  for  each  graphics  mode, 
and  unique  display  lists  can  be  designed  to  com- 
bine graphics  modes  in  a  single  display  (see  "How 
to  Design  Custom  Graphics  Modes,"  COM- 
PUTER'S First  Book  of  Atari  Graphics).  The  address 
of  the  beginning  of  the  display  list  in  RAM  is 
located  by: 

DL  =  PEEK(560)  +  256*PEEK(561) 

Setting  Up  The  Interrupt 

To  tell  ANTIC  that  a  Display  List  Interrupt  is  to 
be  performed,  several  things  must  be  done. 

1.  Select  the  vertical  screen  position  where 
you  want  the  interrupt  to  take  place,  for  example, 
where  you  want  the  background  color  to  change. 
Setting  bit  7  of  a  number  in  the  display  list  tells 
ANTIC  to  perform  a  DLI  following  the  display  of 
that  mode  line.  Setting  bit  7  can  be  done  by  simply 
adding  128  to  the  value  in  any  memory  location. 
Suppose  you  wish  to  have  a  DLI  take  place  at  line 
10  of  a  graphics  mode  0  display.  You  need  to  add 
128  to  the  display  list  instruction  for  line  9,  which 
happens  to  be  in  the  memory  location  13  bytes 
past  the  beginning  of  the  display  list: 

POKE  DL  +  13,PEEK(DL  + 13)  + 128 

Do  not  add  128  to  any  number  in  the  display  list 
before  DL-F  6,  which  corresponds  to  the  second 
mode  line. 

2.  Write  your  DLI  routine  and  store  it  some- 
place safe  in  memory.  The  familiar  READ/DATA/ 
POKE  combination  works  well  for  storing  ML 
routines  from  within  a  BASIC  program.  I  like  to 
use  Page  6  of  RAM  (locations  1536-1791)  for  the 
DLI,  although  other  RAM  locations  or  character 
strings  can  also  be  used. 

3.  Load  the  starting  address  of  the  DLI  routine 
into  locations  512  (low-byte)  and  513  (high-byte). 
For  a  routine  at  the  beginning  of  Page  6  this  is 
accomphshed  with  POKE  512,0  and  POKE  513,6. 

4.  POKE  54286,192  to  enable  the  DLI. 

Writing  The  DLI  Routine 

There  are  several  rules  to  be  followed  when 
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writing  the  DLI  routine. 

First,  it  must  be  short.  Only  14  to  61  machine 
cycles  are  available  for  execution,  depending  on 
the  graphics  mode,  so  keep  your  total  routine 
down  to  about  25-30  cycles. 

The  first  operation  in  your  routine  must  be  to 
save  on  the  stack  any  of  the  6502  registers  (ac- 
cumulator, X,  and/or  Y)  which  you  use  in  the  DLI. 
You  must  also  restore  these  registers  by  pulling 
them  off  the  stack  at  the  end  of  the  routine.  In 
between,  they  can  be  used  for  executing  the  DLI 
instructions.  Also,  the  final  machine  language  in- 
struction must  be  a  ReTurn  from  Interrupt  (RTI). 

You  will  want  to  insure  that  any  changes 
your  DLI  makes  in  the  video  display  are  properly 
synchronized  with  the  TV  electron  gun's  opera- 
tion. A  register  is  provided  for  this  purpose  at 
location  54282  {$D40A).  Addressing  this  location, 
called  WSYNC  (Wait  for  horizontal  SYNChroni- 
zation),  will  provide  a  sharp  separation  between 
pre-  and  post-interrupt  regions  on  the  screen.  So, 
early  in  your  DLI  routine,  you  should  store  some 
number  in  WSYNC  (any  number  will  do). 

Use  ROM  For  Changes 

Another  point  is  that  changes  in  color  registers, 
audio  registers,  and  the  like  should  be  made  di- 
rectly into  the  hardware  locations  in  ROM,  rather 
than  into  the  corresponding  shadow  locations  in 
RAM.  For  example,  the  five  playfield  color  regis- 
ters are  at  locations  53270  through  53274  ($D016- 
$D01A)  in  ROM,  and  their  shadows  are  at  loca- 
tions 708  through  712  in  RAM.  Your  DLI  should 
store  values  only  in  locations  53270-53274. 

A  Simple  Color  Change 

Program  1,  in  BASIC,  calls  a  DLI  to  change  the 
screen  background  color  from  blue  to  red  after  six 
mode  lines  have  been  displayed.  The  POKE  512,0 
and  POKE  513,6  in  line  70  load  the  DLI  into  the 
beginning  of  Page  6  of  RAM.  The  DLI  routine  is 
stored  as  decimal  numbers  in  the  DATA  state- 
ment. You  can  change  the  third  number  in  this 
DATA  statement  to  any  number  less  than  256,  to 
change  the  color  displayed  in  the  bottom  portion 
of  the  screen.  This  color  number  is  the  same  value 
you  would  POKE  into  location  710,  the  color 
register  2  shadow  location,  to  change  the  back- 
ground color.  It  is  computed  by  taking  16* 
HUE -h  LUMINANCE.  To  return  to  the  normal 
background  from  this  modified  display,  simply 
type  GRAPHICS  0. 

A  Two-Tone  Text  Window 

Graphics  modes  1  through  8  are  really  mixed  mode 
displays,  with  a  mode  0  text  window  of  four  lines 
at  the  bottom  of  the  screen. 

Program  2  shows  a  way  to  get  three  back- 
ground colors  on  the  screen.  The  default  black  for 
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mode  2  is  displayed  at  the  top,  green  goes  into 
the  top  two  lines  of  the  text  window,  and  the  bot- 
tom half  of  the  text  window  is  yet  a  different  color 
(pink).  In  addition,  the  DLI  sets  color  register  1, 
which  controls  the  luminance  of  characters  in 
mode  0,  to  zero,  so  the  characters  are  now  black. 

These  techniques  will  work  with  any  custom- 
mixed  mode  display  list,  allowing  almost  unlim- 
ited variation  in  graphics  displays. 

All  This  And  Sound,  Too 

DLls  need  not  be  used  only  to  brighten  up  your 
TV  screen.  Program  3  shows  a  way  to  get  a  re- 
peating sound  using  a  DLI  and  audio  channel  1. 
(See  Mapping  the  Ator![COMFUTE!  Books]  by  Ian 
Chadwick,  p.  121,  for  more  informaHon  about 
directly  addressing  the  audio  registers.)  In  this 
program,  the  loop  in  line  50  sets  the  DLI  instruc- 
tion on  several  lines  in  the  mode  0  display  list;  the 
exact  number  depends  on  the  STEP  size.  A  smaller 
step  size  gives  a  higher  rate  of  sound  repetition 
because  the  DLI  is  called  more  often. 

The  DLI  routine  in  this  example  uses  an  ad- 
ditional RAM  byte  at  location  1600  ($0640)  to  store 
a  value  which  governs  the  pitch  of  the  sound  being 
generated.  This  location  is  initially  set  to  121 
(middle  C)  by  line  60. 

The  DLI  decrements  this  value,  then  stores  it 
in  location  53760  ($D200)  to  produce  a  sound  on 
audio  channel  1.  This  value  is  then  compared  to  a 
preset  limiting  pitch  value,  decimal  60  ($3C)  in 
this  example,  corresponding  to  one  octave  above 
middle  C.  If  not  equal,  then  the  routine  terminates. 
If  equal,  then  121  ($79)  is  loaded  back  into  location 
1600  to  restart  the  cycle  the  next  time  the  DLI  is 
called.  This  routine  can  be  changed,  as  shown  in 
the  REM  statements,  to  give  increasing  or  de- 
creasing pitch,  fast  or  slow  repeat  rate,  and  any 
desired  starting  and  ending  pitches. 

DLI  For  Special  Characters 

Many  programs  use  specially  designed  character 
sets  in  place  of  the  standard  Atari  characters.  A 
DLI  can  be  used  to  simultaneously  display  char- 
acters from  more  than  one  set  on  different  lines  of 
the  screen. 

This  technique  is  used  in  some  character 
set  generation  programs,  such  as  "SuperFont" 
(COMPUTE!,  Januar)'  1982).  Program  4  shows  how 
it  works,  without  getting  into  the  details  of  alternate 
character  set  creation  (see  COMPUTEl's  First  Book 
of  Atari  Graphics,  Chapter  3,  for  more  information). 

First,  1084  bytes  are  reserved  for  the  redefined 
characters,  and  a  DLI  is  set  on  line  10  of  the 
graphics  mode  0  display.  The  first  five  DATA 
statements  contain  redefined  values  of  capital 
letters  A,  B,  C,  D,  and  E,  which  are  loaded  into 
the  correct  locations  in  the  reserved  RAM  space. 
The  DLI  routine  loads  the  most  significant  byte  of 


the  starting  address  of  the  new  character  set  (156, 
$9C)  into  both  WSYNC  and  location  54281  {SD409), 
the  hardware  character  base  address  (RAM 
shadow  is  756,  which  would  be  used  by  BASIC). 

The  routine  also  changes  the  color  of  the  lower 
part  of  the  screen.  You  will  see  both  the  regular 
ABCDE  and  the  redefined  ABCDE  on  the  screen 
simultaneously. 

Moving  The  Invisible  Cursor 

If  you  delete  the  last  line  in  Program  4,  you  can 
move  the  invisible  cursor  and  print  in  immediate 
mode  in  either  the  top  (regular)  or  bottom  (re- 
defined) part  of  the  screen.  With  this  limited 
sample,  only  the  letters  A-E  will  be  shown  as 
nonblanks  in  the  redefined  screen  area.  However, 
this  concept  obviously  allows  great  flexibility  for 
creating  elaborate  screen  displays  with  multiple 
character  sets. 

A  Demonstration  Of  Multiple  DLIs 

So  far,  our  examples  have  used  one  DLl  routine 
per  BASIC  program.  But  you  can  also  show  several 
colors  at  once,  or  change  both  character  sets 
and  colors  in  separate  operations.  Obviously, 
multiple  DLIs  are  needed  in  such  cases.  A  problem 
arises,  because  you  can  only  tell  the  operating 
system  about  one  DLI  at  a  time  using  locations 
512  and  513. 

There  are  several  possible  solutions  to  this 
problem.  Perhaps  the  simplest  is  to  load  several 
DLIs  into  memory,  and  have  each  routine  load 
the  starting  address  of  the  next  one  to  be  called 
into  locations  512  and  513.  This  chaining  of  DLIs 
is  illustrated  in  Program  5. 

This  program  will  place  five  bands  of  color  in 
a  mode  1  screen,  together  with  different-colored 
characters.  The  same  basic  DLI  is  used  four  times, 
stored  32  bytes  apart  in  Page  6.  The  only  changes 
are  to  the  actual  color  value  stored  in  the  back- 
ground color  register  53274  ($D01A)  and  to  the 
low  byte  of  the  Page  6  address  of  the  next  DLI  to 
use,  which  gets  stored  in  location  512  ($0200), 

Avoiding  Screen  Flicker 

DLI  instructions  are  placed  on  four  mode  lines 
(line  40).  The  BASIC  program  contains  a  POKE 
559,0  in  line  30  and  a  POKE  559,34  in  line  230. 
These  statements  simply  turn  off  the  TV  display 
briefly  while  the  DLI  routines  are  stored  and 
changed,  to  avoid  screen  flicker.  You  can  remove 
these  statements  and  watch  the  action,  if  you 
like. 

By  experimenting  with  the  BASIC  programs 
and  DLI  routines  in  these  five  programs,  you  can 
better  understand  the  principles  involved  and  the 
ease  of  using  DLIs  in  your  own  programs.  The 
book  Mapping  the  Atari  contains  the  most  detailed 
available  memory  map  of  the  Atari,  and  is  an  in- 


valuable reference  for  the  programmer  wishing  to 
use  DLIs  effectively. 

Program  1:  Color  change  Using  DLI 

■jC10  GRAPHICS  0 

J!  20  DL  =  PEEK  (560)  +PEEK  (561  )  *256:  REM  F 

ind  start  o-f  display  list 
K!  30  POKE  DL+ lei,  PEEK  (DL  +  10) +1  2B:  REM  E 

nable  DLI  for  desired  line  in  di 

sp lay  list 
Jfi  40  FOR  1=0  TO  10:READ  A:POKE  1536+1 

,A:NEXT  I  : REM  Poke  DLI  routine  i 

n  t  D  page  6 
PP  50  REM  Change  63  to  desired  color  v 

al  ue 
W  60  DATA  72,  16'?,  68,  141  ,  10,  212,  141  ,  24 

,  208,  104,  64 
NO  70  POKE  5  12,0:  POKE  513,  6:  REM  Set  ad 

dress  for  DLI   (LSB.MSB) 
•5  80  POKE  54286,  192:  REM  Enable  DLI 
i^  90     LIST 

Program  2:  IWo-Tone  Text  Window 


DE   10 
JI  20 

on  3  0 

KC  4  0 

JK  50 

m  60 

Nfi  7  0 

HP  8  0 

EO  9  0 

6!  10 

Nfi  1  1 

P.!  12 

GF  13 

FG  14 

CH  15 
Nt:   16 


GRAPHICS     2 

DL=PEEK(560)+2S6*PEEK(56  1):REM  F 
ind  start  of  display  list 
POKE  710,198:REM  Set  color  regis 
ter  2  to  green 

POKE  DL+IB, 130: REM  set  DLI  for  m 
iddle  of  te>;t  window 

FOR  1=0  TO  19:READ  A:POKE  1536+1 
,A:NEXT  I;REM  Poke  DLI  routine  i 
n t o  p  ag  e  6 

REM  Change  SB  to  desired  color  v 
alue  for  bottom  of  te>;t  window 
DATA  72,138,72,169,0,162,38 
DATA  141,10,212,141,23,208 
DATA  142,24,208,104,170,104,64 
0  POKE  512,0:POKE  513,6;REM  Set  a 
ddress  for  DLI 

POKE  54286, 192: REM  Enable  DLI 
PRINT  #6;"  GRAPHICS  mode  kt.'f."' 
PRINT  "Top  half  of  text  window" 
PRINT  :PRINT  "Another  color  for 

the  bottom  hal f I " 
PRINT  "(Press  any  key  to  go  on)' 
OPEN  #1 , 4, 0, "K: " :GET  #1,A;GRAPH 


ICS  0:LIST 

Program  3:  Creating  Sound  Witti  DLI 


OC  10 
JI  20 

kH  30 

PS  40 

01  5  0 

t(J  60 
JE  70 

BE  80 
tJ  9  0 

m  10 

flF  1  1 
Nft  12 


GRAPHI 
DL=PEE 
ind  st 
POKE  5 
ui  V  al  e 
POKE  5 
n  n  e  1  1 
FOR  1  = 
30:NEX 
ng  e  sp 
POKE  1 
desi  re 
FOR  1  = 
, A:NEX 
n  t  D  pa 
REM  Ch 
e  pi  tc 
REM  Ch 
pitch 
0  DATA 
0  DATA 

4  1 
0  DATA 


CS  0 
K  (56 
art 
3768 
nt  o 
3761 
vol 
6  TO 
T  I  : 
eed 
600, 
d  in 
0  TO 
T  I  : 
ge  6 
anq  B 
h  f  r 
ang  e 


0) +PEEK (5 
of  d  i  sp 1  a 
,0:POKE  5 
f  SOUND  0 
,168: REM 
ume  =  S ,   d  i 

23  STEP 
REM  Chang 

12! : REM  C 
itial  pit 

20: READ 
REM  Poke 

206  to  2 

om  i  n t  i  al 

6  0  to  d  e 


72, 206, 64,6, 1 
210, 201 , 60, 20 

64, 6, 104, 64 


61)*256:REM  F 
y  1  i  Bt 

3775,3:REM  Eq 
,0,0,0 

Set  audio  cha 
stDrtion=10 
3: POKE  DL+I , 1 
e  step  to  cha 

hange  121  to 

ch 

A; POKE  1536+1 

DL I  r  out  i  ne  i 

38  to  decreas 

setting 
sir  ed  end  i  n  g 

7  3,64,6, 141 ,0 
8, 5,  169,  121  ,  1 
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KL  130  POKE  512,0:POKE  513,6;REM  Set  a 

ddresB  for  DLI   (LSB.MSB) 
ND  14ei  POKE  54286,  1  92:  REM  Enable  DLI 
JL  15ei  PRINT  "PRESS  ANY  KEY  TO  GO  ON" 
LE160  OPEN  #1  ,  4  ,  0,  "K;  "  :  GET  ttl,A:CLOSE 

#l:SaUND  0,0,0,0 
NE  170  LIST 

Program  4:  Special  Characters  Using  DLI 


10 

20 
3  0 

35 

40 
50 

&& 

70 


Ji  00 


JG 
Gh 


90 

100 

1  10 

1.20 

130 

140 


150 
1  60 
170 
180 

190 
200 


CHRB 
ser  V 
POKE 
i  156 
GRAP 
to  e 
PDK/^ 
nd  c 
POKE 
DL  =  P 
i  nd 
POKE 
Bt  D 
FOR 
■for 
D,  E) 
READ 

T 

DATA 
DAT 
DAT 
DAT 
DAT 
FOR 
I  ,  A 
ge 
DAT 
9,2 
PDK 
6,  1 
POS 
(na  1 
POS 
def 
ne 
POS 


ASE  =  256*  (PEEK  (  1 06;  -4 )  : REM  Re 
e  4  pages  below  RAMTQP 

106.156:REM  Set  new  RAMTOP 

it  for  4  81:;  machine) 
HICS  0:REM  Put  r.=w  RAMTOP  in 
f  f  BCt 

7  10, 198: REM  Change  backgrou 
Dior  to  green 

752,1:REN  Inhibit  ciirsor 
EEK  (5601  +256t.PEEK  (561  J  :  REM  F 
start  of  display  list 

DL+ 14  ,  PEEK  (L'L+ 14  ) +128:  REM  S 
LI 

1=1  TO  40:REM  Load  bit  maps 
redefined  characters  ^A,B,C, 

A:POKE  CHRBASE+264+ I , A: NEXT 

60, 102, 19S, 193, 198, 102, 59. 0 
A  62,99,99,99,126,99,126,0 
A  60,99,96,96,96,99,62,0 
A  60,99,90,99,99,102,124,0 
A  60,98,96,124,96,127,60,0 

1=0  TO  15: READ  A: POKE  1536+ 

NEXT  1 : REM  Load  DLI  into  pa 
6 

A  72,169,156,141.10,212.141. 
12.  169.  148.  141, 24.  203,  104, 64 
E  5  12,0: POKE  51 3, 6: POKE  5428 
92:REM  Enable  DLI 
ITION  15,4:?  "ABCDE":REM  Nor 

characters  at  top  of  screen 
ITIDN  15,12:?  "ABCDE":REM  Re 
ined  characters  below  DLI  li 


ITIDN  7,8:? 


OPE 
#1 


N  #1,4 
:  POKE 


,  0,  ' 
106. 


K:  "  : GET  #  1  , A : CLOSE 

160:GRAPHICS  0:LIS 


Program  5:  Multiple  DLI  Routines 


KE  10 


1  7: 
se 


GRAPHICS 
11   h  ave 
one 

DL=PEeK (560) 
i  nd  st  art  of 
POKE  559,0: R 
sp 1  ay  whi 1 e 
POKE  DL+9, 13 
E  DL+20, 134: 
REM  Set  DLI 
es  ired  mode 

mod  e  1  > 
FOR  1=0  TO  2 
, A; NEXT  I : RE 
REM  68  means 
f  or     st  art  o 
DATA  72, 169, 
, 208, 1 69, 32, 
2, 104, 64 
PF  90  RESTORE  80 
M 100  FOR  1=0  TO 
I, A: NEXT  I: 
ne 
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REM  Mode  1  sere 
parate  colored 


en  w  1 
sect  i 


JI  20 
OJ  30 

BS  40 

AF  50 

HP  60 
K  70 

f\   80 


+PEEK (561 ) t256: REM  F 

d  i  sp lay  II st 
EM  Turn  off  video  di 
loading  DLI  routines 
4:PDKE  DL+14, 134: POK 
POKE  DL+25, 134 
instruction  on  all  d 
lines  (134=128  +  6  -for 


0:READ  A: POKE  1 
M  First  DLI  rou 
red:32  sets  ad 
f  next  DLI  rout 
68, 141 , 10, 212, 1 
141,0,2, 169, 6, 1 


20: READ  A: POKE 
REM  Second  DLI 


536+1 
tine 
dress 
i  n  B 
4  1  ,  26 
41.1, 


1568  + 

r  out  i 


ND110  POKE  1570,19B:REM  Change  color 

to  gr  een 
Ml  120  POKE  157e,64:REM  Change  startin 

g  address  for  ne>:t  DLI  routine 
Cft  130  RESTORE  80 
JiJ  140  FOR  1=0  TO  20;  READ  A:  POKE  1600  + 

I,A:NEXT  I:REM  Third  DLI  routin 

e 
AE  150  POKE  1602,102:REM  Change  color 

to  1  a vender 
SE  160  POKE  1610,96:REM  Change  startin 

g  address  for  next  DLI  routine 
CE  170  RESTORE  80 
BP  180  FDR  1=0  TO  20:READ  A:PDKE  1632  + 

I,A:NEXT  I : REM  Fourth  DLI  routi 

ne 
CP  190  POKE  1634,28:REM  Change  color  t 

o  yellow 
BL  200  POKE  1642,0:REM  Change  starting 
address  back  to  first  DLI  rout 

i  ne 
LP210  POKE  512,0:POKE  513,6:REM  Set  a 

ddress  back  to  first  DLI 
NC  220  POKE  54286,  192:  REM  Enable  DLI 
Btl  230  POKE  559.34:REM  Turn  video  d  i  sp 

lay  back  on 

CUE" 
Lft  250  POSITION  1,7:?  #6:  "COLORS  YOU  C 

AN  MAKE" 
m 2b0    POSITION  1,12:?  tt6;"in  mode  one 

HH  270  POSITION  1,18:?  #6;"PRES5  ANY  K 

EV  NOW" 
DE  230  POSITION  1,21:?  «  6  ;  "  EEMmMTII " 
CK  290  OPEN  #1  ,  4,  0,  "K:  "  :  GET  #1,  A:  CLOSE 
ttl  :  L  1ST  Q 


VIG20  /COM  64/  ATARI  400/800 
SOFTWARE  RENTAL  CLUB 

RENT  SOFTWARE  for  up  to  a  month  for  1 0%  of  the 
list  price  (20%  for  cassettes  and  disks)  with  option  to 
purchase 

Call  us  for  Atari  and  Commodore  64  Hardware 
Supplies 
"  Membership  $25/year  with  S10  Renewal  fee 
VISA/MC  accepted 

VIDEO  HOME  LIBRARY 

RT.  3  BOX  309A52 
CLINTON,  TN  37716 
(615)457-5068,  482-3893 

Software  orders  add  S1 ,50  for  shipping  and  handling. 


(KJ 


Copv  Atari  400/SOO  Cartridge  to  Dl*k 
•nd  run  th*m  frtMti  a  Manu 


ATARI  CARTRIDGE-TO-DISK  COPY  SYSTEM  $69" 

Sk^wtcan  leis  yoi^  copy  Afi/Y  cantniQe  lor  Ifie  Ann  400/800  lo  dukme.  and  tharaiirter  run  it  from  your 
flisJc  diiwB.  £njO¥  !he  con^eniencB  of  H4«cTing  youf  favorim  gtmot  from  a  "manu  scrwn"  rathsf  then 
swapping  csrtnd^^M  in  ind  out  of  vOLjr  computai   Each  camklge  CQ{>i«d  by  Sup*rC«n  lunclrani  azactfY 
iikv  ilte  origrnBl.      .seClbooling.  ale. 
Supfrican  tftcbdM:  COPY  ROUTINE  ■  Djmps  tha  contantt  of  th*  cartrxlD*  to  «  d4kan4  [up  lo  9 

cartfidgea  wiJI  fit  ^n  OOA  diik.l 

MENU  ROUTINE  ■  AuTo  kudingmwuupiornpUuMi  iDr  ■  0/Vf  kayBtrok*  t^w^n 

o(  snv  CAnrvdgQ  on  iho  d»fc. 

CARTfllOGE  -  "Tnciis"  the  compuief  kiio  ihirikpng  that  th*  origrnal  "proiBctBiil" 

carrrdge  has  b«n  iniertftd. 
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Tl  Tricks  And  Tips 


Michael  A  Covington 


Here  are  13  ways  to  get  more  out  of  your  TI-99i4A  and 
Extended  BASIC. 


Here  is  a  collection  of  handy  hints  for  TI-99/4A 
programmers. 

1.  You  can  get  white  characters  on  a  black 
screen,  for  the  duration  of  a  program  run,  by  exe- 
cuting statements  such  as: 

10  FOR  J  =  1  TO  14 

20  CALL  COLOR ( J , 16, 1 > 

30  NEXT  I 

40  CALL  SCREEN(2> 

The  results  look  rather  good  on  a  color  TV,  but 
bad  on  a  black-and-white  set,  because  scan  lines 
break  each  letter  up  into  separate  dots.  (The  most 
readable  black-and-white  display  is  obtained  by 
executing  a  CALL  SCREEN{15),  making  the  screen 
gray  while  leaving  the  characters  black.) 

2.  In  both  TI  BASIC  and  Extended  BASIC, 
you  can  use  *  for  the  logical  operator  AND  and  -I- 
for  OR.  For  instance,  the  statement  IF  (X  =  0)  + 
(Y==0)  THEN  1500  means  "if  X  =  0  or  Y  =  0  then 
go  to  line  1500."  The  parentheses  are  essential  to 
show  that  you  don't  want  to  add  0  to  Y.  Extended 
BASIC  allows  you  to  use  the  alternative  notation 
IF  X  =  0  OR  Y  =  0  THEN  1500. 

3.  In  Extended  BASIC,  but  not  in  TI  BASIC, 
pressing  any  key  while  a  program  is  being  LISTed 
temporarily  halts  the  listing;  pressing  any  key 
then  causes  the  listing  to  resume.  In  each  case  the 
key  must  be  held  down  for  half  a  second  or  so  in 
order  to  get  any  response. 

4.  If  you  RESEQUENCE  a  program  that  con- 
tains references  to  nonexistent  lines,  those  refer- 
ences will  be  changed  to  references  to  line  32767, 
For  instance,  if  you  have  a  GO  TO  500  and  there 
isn't  a  hne  500,  a  RES  command  will  change  that 
statement  to  GO  TO  32767. 


5.  In  Extended  BASIC,  the  command  RUN 
"CSl"  loads  a  program  from  the  cassette  drive 
and  immediately  runs  it.  It  is  equivalent  to  OLD 
CSl  followed  by  RUN.  With  a  disk  drive  and  Ex- 
tended BASIC,  you  can  use  RUN  "DSKl. 
filename",  where  fileuauie  is  the  name  of  the  pro- 
gram on  disk  that  you  want  to  LOAD  and  RUN. 

6.  TI  BASIC  gives  you  608  more  bytes  of  avail- 
able memory  than  Extended  BASIC.  However, 
you  can  usually  write  your  program  more  com- 
pactly in  Extended  BASIC,  so  the  difference  is  of 
little  practical  consequence. 

7.  Built-in  subprograms  that  require  integer 
arguments,  such  as  CALL  HCHAR,  CALL 
VCHAR,  CALL  SOUND,  and  the  CHR$  function, 
will  in  fact  accept  numbers  that  are  not  integers. 
The  argument  is  rounded  to  the  nearest  integer 
before  being  used,  so  that  for  instance  CHR$(10.8) 
is  the  same  as  CHRS(ll).  CHR$(10.4)  would  be 
equivalent  to  CHR$(10). 

8.  In  TI  BASIC,  you  can  include  multiple  co- 
lons (for  example,  :::::)  in  PRINT  statements  to 
produce  multiple  line  skips,  A  TI  BASIC  program 
using  this  feature  which  is  loaded  from  disk  or 
cassette  under  Extended  BASIC  will  run  correctly, 
but  you  cannot  type  multiple  colons  while  in  Ex- 
tended BASIC  unless  you  want  them  to  be  taken 
as  statement  separators  (::).  Put  spaces  between 
the  colons,  as  in  PRINT  A  :  :  B  rather  than  PRINT 
A  ::  B,  and  they  will  work  correctly. 

9.  In  Extended  BASIC,  you  cannot  have  more 
than  four  sprites  visible  on  the  same  line  at  the 
same  time;  additional  sprites  will  be  temporarily 
invisible.  The  problem  is  worse  with  double-size 
sprites  (CALL  MAGNIFY(3)  or  (4)),  since  then 
only  part  of  the  sprite  generally  disappears,  dis- 
torting its  appearance. 

10.  When  you  execute  a  CALL  SPRITE  state- 
ment, the  sprite  will  sometimes  momentarily  pop 
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into  existence  at  a  random  screen  location  and 
then  jump  to  the  location  that  you  specified.  To 
prevent  this,  create  the  sprite  with  a  color  of  1 
(transparent)  and  then  alter  its  color  with  a  CALL 
COLOR  statement. 

11.  The  loss  of  resolution  on  the  screen  that 
occurs  with  certain  color  combinations  is  inherent 
in  the  way  color  is  encoded  onto  the  video  signal 
and  does  not  represent  a  defect  in  the  TV  set  or 
modulator.  For  greatest  sharpness,  use  black  on 
gray  or  cyan. 

12.  The  TI-99  sound  generator  will  produce 
frequencies  from  110  to  44733  hertz  (cycles  per 
second),  well  above  the  limit  of  human  hearing. 
However>  the  response  of  the  sound  section  of 
most  TV  sets  falls  off  markedly  above  2000  (or,  at 
best,  above  10,000)  hertz.  This  means  that  you 
cannot,  as  is  sometimes  suggested,  use  the  TI-99 
to  test  the  upper  frequency  limit  of  your  hearing. 
It  also  means  that  tones  above  2000  Hz — still  well 
within  the  range  of  human  hearing — will  sound 
markedly  different  on  different  TV  sets. 

13.  If  you  want  to  transmit  lines  of  more  than 
80  characters  to  the  printer,  open  it  as  "RS232.CR" 
(or  "PIO.CR")  rather  than  "RS232"  (or  "PIG"). 
You  must  still  end  your  line  of  output  (by  execut- 
ing a  PRINT  statement  that  does  not  end  in  a 


comma  or  semicolon)  before  more  than  80  charac- 
ters have  been  transmitted,  but  doing  so  wUl  not 
cause  the  printer  to  start  a  new  line;  the  printer 
will  stay  on  the  same  line  until  you  explicitly  trans- 
mit a  carriage  return,  CHR$(13),  and  a  line  feed, 
CHR$(10). 

This  is  particularly  useful  when  you  are  using 
a  dot-matrix  printer  in  graphics  mode,  using  each 
character  code  for  a  single  vertical  row  of  dots 
and  putting  hundreds  of  them  on  a  line.  @ 
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POOL-64  (C) $14.95 
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SOFTWARE  UNLIMITED.  27  LOOKOVER 
LN..  YARDLEY  PA  19067.  VISA  &  MC  ADD 
4%.  ALL  SOFTWARE  ON  DISK.  PLEASE 
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Commodore 

Disk  Datamaker 


A  confus'm-^  and  tedious  aspect  of  machine  lajigiiage 
pivgrajiiniin^^,  sprite  making,  or  character  set  redefini- 
tion is  converting  the  conteiits  of  nionori/  i}ito  BASIC 
DATA  statements  that  can  be  typed  in  easily.  This 
program — for  any  Commodore  computer  ivith  a  disk 
drive — will  do  all  the  work  for  ifou.  It  also  provides 
valuable  insight  into  how  the  coniputer  stores  program 
files  0)1  disk. 


In  the  past  there  have  been  programs  that  created 
DATA  statements  by  PEEKing  the  contents  of 
memory  and  using  the  dynamic  keyboard  tech- 
nique to  fool  the  computer  into  thinking  that  some- 
one had  typed  in  the  lines.  The  problem  with 
these  programs  was  that  occasionally  the  resulting 
DATA  statements,  or  perhaps  even  the  datamaker 
program  itself,  would  need  to  occupy  the  area  of 
memory  being  PEEKed,  destroying  the  data  that 
needed  to  be  transformed. 

If,  however,  the  data  is  stored  on  disk,  it 
would  not  need  to  be  in  memory  as  well.  It  could 
just  be  read  from  a  file.  Then  I  decided  there  was 
no  reason  to  use  the  dynamic  keyboard  technique 
either,  since  a  BASIC  program  could  be  created 
right  on  the  disk.  The  result  is  "Disk  Datamaker" 
(Program  1);  it  causes  no  memory  conflicts — 
because  neither  the  original  chunk  of  data,  nor 
the  BASIC  program  created  by  Datamaker,  is  ever 
in  the  computer's  memory. 

In  addition  to  creating  DATA  statements,  the 
Datamaker  program  creates  the  necessary  lines  of 
BASIC  to  READ  and  POKE  the  DATA  items  back 
into  memory.  Program  2  is  a  short  example  of  a 
program  created  by  the  Datamaker.  It  consists  of 
the  DATA  statements  for  one  sprite  shaped  like  a 
Commodore  64, 

Applications 

Suppose  you  have  written  a  machine  language 


(ML)  program.  Sophisticated  assembler  programs 
such  as  MAE,  the  Commodore  assembler,  and 
the  PAL  assembler  all  allow  you  to  store  the  object 
code  on  disk.  If  you  use  a  simple  assembler  like 
Supermon  or  Micromon,  you  can  SAVE  a  copy  of 
the  section  of  memory  that  contains  your  ML  pro- 
gram. Then  all  vou  have  to  do  is  LOAD  the  Disk 
Datamaker  program,  give  it  the  name  of  your 
object  and  program  files,  and  it  will  take  care  of 
everything. 

Suppose  you  have  just  created  sprite  data 
with  a  sprite  editor.  If  you  have  the  Commodore 
Sprite  Editor,  all  you  have  to  do  is  press  the  S  key 
to  invoke  the  SAVE  command,  which  puts  your 
sprite  data  on  disk.  If  you  are  using  some  other 
editor,  you  could  use  a  monitor  to  SAVE  a  copy 
of  the  section  of  memory  containing  the  sprite 
data.  Disk  Datamaker  could  then  turn  that  file 
into  DATA  statements. 

Manipulating  PRG  Files 

All  this  is  possible  because  PRG  (program)  files 
on  disk  can  be  OPE.Ned  and  used  just  like  SEQ 
(sequential)  data  files.  To  OPEN  a  PRG  file  for 
writing,  vou  can  either  put  a  ",P,W"  after  the 
filename,  or  you  can  OPEN  .with  a  secondary  ad- 
dress of  1,  which  is  reserved  for  SAVE.  These  two 
lines  produce  identical  results: 

OPEN  8,8,l,"filename" 
OPEN  8,8,8,"filename,P,W" 

To  OPEN  a  PRG  file  for  reading,  just  OPEN 
another  ",P"  file  or  use  a  secondary  address  of  0. 
These  two  lines  are  also  identical: 

OPEN  8,8,0,"filename" 
OPEN  8,8,8,"filename,P,R" 

Using  this  knowledge,  it  is  possible  to  read 
the  PRG  file  that  holds  the  data,  and  to  write  a 
PRG  file  that  contains  a  BASIC  program. 
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BASIC  Basics 

The  other  knowledge  necessary  to  understand 
Disk  Datamaker  is  the  structure  of  a  BASIC  pro- 
gram. Each  line  of  BASIC  contains  four  header 
bvtes.  The  first  two  are  a  pointer  to  the  beginning 
of  the  next  BASIC  line  in  memory.  The  address  is 
in  standard  low-byte/high-byte  format.  The  next 
two  bytes  are  the  line  number,  also  in  lovv-bvte/ 
high-byte  format.  Next  is  the  tokenized  version  of 
the  BASIC  line,  followed  by  a  zero  to  denote  the 
end  of  the  line  in  memory.  If  the  pointer  to  the 
next  line  is  two  zeros  in  a  row,  the  computer  knows 
it  has  reached  the  end  of  the  program. 

Program  Operation 

Lines  10-90  OPEN  the  PRG  file  from  which  the 
data  will  come  and  the  one  to  which  the  BASIC 
program  will  be  written.  The  subroutine  at  10000 
will  print  the  appropriate  error  message  if  either 
of  the  files  cannot  be  OPENed. 

Line  100  GETs  the  first  two  bytes  from  the 
file  containing  the  data.  In  Conimodore  PRG  files, 
these  bytes  always  contain  the  starting  address 
(again  in  low-byte/high-byte  format)  of  the  area  of 
memory  where  the  data  was  located  when  it  was 
originally  saved.  Line  110  writes  the  first  two  bytes 
to  the  file  which  will  be  the  new  BASIC  program. 
The  numbers  chosen,  1  and  4,  specify  a  starting 
address  of  1  +  (4^^256)  or  1025.  This  starting  address 
will  allow  the  BASIC  program  created  to  LOAD 
.correctly  into  a  PET/CBM.  The  starting  address  is 
not  critical  for  the  VIC  and  64  since  they  auto- 
matically relocate  any  program  to  their  particular 
starting  addresses  when  it  is  LOADed. 

Line  120  defines  the  values  for  the  pointer 
bytes  to  the  next  program  line.  Rather  than  at- 
tempting to  calculate  the  proper  addresses  for 
each  pointer,  Datamaker  arbitrarily  sets  all  these 
bytes  to  ones.  This  can  be  done  because  Commo- 
dore computers  automatically  redo  these  pointers 
whenever  a  BASIC  program  is  LOADed.  Line  130 
writes  the  pointer  for  the  first  BASIC  line  to  the 
disk,  and  line  140  writes  the  first  four  numbers 
from  the  DATA  statement  in  line  170.  These  pro- 
vide the  line  number  (10)  and  the  tokens  for  I  =  . 
Line  150  uses  the  value  for  the  starting  address 
found  in  line  100  to  write  the  value  for  1  to  the 
disk.  If  you  want  to  relocate  your  data,  simply 
change  the  value  for  I  in  line  iO  of  the  BASIC  loader 
program  once  it  is  created. 

Line  160  reads  the  rest  of  the  DATA  from 
lines  170-200  of  Program  1  and  writes  it  to  the 
disk,  which  creates  lines  20  and  30  of  the  new 
BASIC  program  (see  Program  2,  for  example). 
These  lines  READ  the  DATA  statements  created 
from  vour  data  and  POKE  the  values  back  into 
memory. 

Line  210  calculates  the  line  number  to  be  used 
for  the  first  DATA  statement.  This  is  the  same  as 


the  address  in  memory  of  the  first  DATA  item. 
Note  this  feature  of  Datamaker:  The  line  number 
of  each  DATA  line  is  equal  to  the  address  into 
which  the  first  number  in  that  line  will  be  POKEd, 
unless  you  change  the  value  of  1  to  relocate  the 
data.  Line  220  writes  out  the  pointer  bytes  and 
the  line  number  for  each  DATA  line,  and  line  230 
writes  the  tokens  for  DATA  and  a  space. 

Lines  250-300  constitute  a  loop  to  read  eight 
bytes  from  the  data  file  and  write  them  as  eight 
DATA  items,  separated  by  commas,  to  the  BASIC 
program  file.  Line  310  checks  the  variable  S,  set  in 
line  250  to  the  value  of  the  built-in  status  variable 
ST,  to  detect  whether  the  end  of  the  data  file  on 
disk  has  been  reached.  (See  Larry  Isaacs'  "64  Ex- 
plorer" column  in  the  October  and  November 
1983  issues  of  COMPUTE!  for  more  information  on 
detecting  an  end-of-file  with  the  ST  variable.) 

If  the  end  has  not  been  reached,  line  320  cal- 
culates the  next  DATA  line  number,  and  line  330 
writes  out  a  zero  to  mark  the  end  of  the  current 
BASIC  line.  If  the  end  has  been  reached,  line  340 
adds  a  DATA  item  with  the  value  of  256  to  the 
end  of  the  DATA  statements.  This  is  the  value 
checked  for  as  an  end-of-data  marker  in  line  20  of 
the  created  BASIC  program.  The  three  zeros  in  a 
row  written  by  line  340  mark  the  end  of  the  BASIC 
program.  Line  350  CLOSEs  the  two  PRG  files  and 
logical  file  15,  used  to  detect  disk  errors,  for  a 
clean  exit  from  the  program. 

Program  1:  Disk  Datamaker 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

10  PRINT" {CLR] MAKE  BASIC  LOADER  OUT  OF" 

I  rem  137 
20  PRINT"DISK  OBJECT  FILE. (3  DOWN}" 

: rem  150 
30  INPUT "{DOWN] ENTER  FILENAME" ; FL? 

:rein  248 
40  OPENI5,8,15  :rem  242 

50  OPEN8,8,8,FL$+",P,R"  : rem  226 

60  GOSUB  370  :rem  128 

70  INPUT "FILENAME  TO  CREATE ";FC$  ; rem  187 
80  0PEN9,8,9, "0:"+FC$+",P,W"  i rem  188 
90  GOSUB  370  :rem  131 

100  GET#8,L0$,HI$  : rem  152 

110  PRINT#9,CHR$(1)+CHR$(4) ;  : rem  22 
120  LINK$=CHR5(1)+CHR5{1)  : rem  83 

130  PRINT#9,LINK5;  : rem  54 

140  FOR  1=1  TO  4: READ  BYTE: PRINT#9 , CHR$ ( B 

YTE) r :NEXT  I  !  rem  102 

150  PRINT#9,MID$(STR$(ASC(LO$+CHR$(0) )+AS 

C(HI?+CHR$C0) )*256),2);        :reml7 
160  FOR  1=1  T042:READ  BYTEs PRINT#9 , CHR5 (B 

YTE);!NEXT  I  : rem  154 

170  DATA  10,0,73,178,0,31,4,20  ; rem  171 
180  DATA  0,135,32,65,58,139  : rem  50 
190  DATA  32,65,178,50,53,54,32,167,32,128 

srem  233 
200  DATA  0,52,4,30,0,151,32,73,44,65,58,7 

3,178,73,170,49,58,137,32,50,48,0 

:rem  51 
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210 

LO=ASC ( LO$+CHR$ ( 0 ) ) : HI=ASC ( HI ?+CHR5  {  0 

))                           :rem  145 

220 

PRINT#9,LINK$+CHR$(L0)+CHR?(HI); 

:rem  92 

230 

PRINT#9,CHB$(131)CHR$C32);    : rem  131 

240 

C0UNT=1                       trem  141 

250 

GET#8,BYTE5:S=ST              : rem  199 

260 

PRINT#9,MID$(STR${ASC(ByTE$+CHR$(0) ) ) 

, 2  ) ;                           t rem  48 

270 

C0UNT=C0UNT+1                  : rem  68 

280 

IP  C0UNT=9  OR  S<>0  THEN  310   : rem  137 

290 

PRINT#9,  ",";                  :rein  91 

300 

GOTO  250                      trem  99 

310 

IF  S  THEN  340                  :  rem  60 

320 

L0=L0+8:IF  L0255  THEN  LO=LO-256  !  HI=H 

I+l                           :rem  10 

330 

PR1NT#9,CHR$(0) ; ;GOTO220      : rem  111 

340 

PRINT#9 ,",256" +CHR$ ( 0 ) +CHR$ ( 0 ) +CHR$ ( 0 

) ;                         !rem  251 

350 

CLOSES !CLOSE9:CLOSE15          : rem  69 

360 

END                           !rem  112 

370 

INPUT#15,E1,E2?,E3,E4         trem  101 

380 

IF  E1=0  THEN  RETURN             i rem  28 

390 

PRINT"ERROR  -  "El r E2? ; E3 ; E4   : rem  215 

400 

CLOSES :CLOSE9:CLOSEl5          : rem  65 

Program  2: 

Sample  Program  Created  By  Datamaker 

10  1=12864 

20  READ  A: IF  A=256  THEN  END 

30    POKE    I, A: 1=1+1: GOTO    20 


® 


wabash 

When  it  comes  to  Flexible  Disks, 
nobody  does  it  better  than  Wabash. 

MasterCard,  Visa  Accepted. 
CallFree:  (800)  235-4137 


PACIFIC 
EXCHANGES 


Turn  Your  Used  Computer  Games  And 
Educational  Software  Into  Cash! 

Prompt  payment.  Send  your  Unwanted  items  with  direc- 
tions, or  a  SASE  witti  a  list  o*  what  you  have  and  we  will 
quote  our  high  prices. 

We  also  sell  used  software!  What  do  you  need?  SASE, 
please.  Buying  cartridges,  cassettes  and  discs  for 

Atari  400/800     VIC  20      Apple  2  &  2E      Commodore  64 


Write  our  shop 

USED  VIDEO  TAPES,  INC. 

Box  4530  CMP 

Warren,  New  Jersey  07060 

(201)561-6388 

Inoperable  soflware  returned  at  sender's  cost. 
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Super 
Directory 


Michael  Contino 


"Super  Dircchvy"  is  nil  invaluable  utiliti/  which  dis- 
plays the  disk  directory  an  the  screen  a)id  allozos  you  to 
use  the  cursor  control  keys  to  automatically  select, 
LOAD,  and  RUN  am/  pro^^raui.  Origiiuilly  zoritteu  for 
64  and  PETs  with  Upgrade  ami  4.0  ROM;  versions  are 
also  included  for  VIC^  Atari,  and  IBM  PClPQr. 


As  much  as  we  might  not  want  to  admit  it,  there 
are  still  many  people  who  have  had  little  or  no 
experience  with  computers.  And  many  of  them 
still  harbor  a  fear  of  the  machines.  In  writing  pro- 
grams, most  of  us  keep  this  in  mind  and  attempt 
to  make  the  programs  as  friendly  as  possible.  Of 
course,  there  is  still  the  problem  of  getting  the 
program  loaded  and  running. 

Since  menus  are  the  standard  solution  for 
friendly  programs,  it  is  natural  to  write  a  menu 
program  that  will:  present  the  user  with  the  choice 
of  programs;  allow  for  the  selection  of  a  program, 
usually  by  number;  and  then  load  the  program. 
Problems  with  this  approach  include  the  updating 
of  disks  every  so  often  and  typing  all  those  names 
into  DATA  lines. 

"Super  Directory"  solves  these  problems, 
providing  menu  selection  using  the  cursor  con- 
trols, with  an  automatic  LOAD  and  RUN  of  the 
selected  program. 

I  developed  the  program  on  my  CBM  8032 
with  an  8050  disk.  However,  it  also  works  on  PETs 
with  Upgrade  and  4.0  BASIC,  with  any  of  the 
three  Commodore  disk  formats,  and  with  the  64. 

This  program  must  be  the  first  program  on 
the  disk.  If  you  don't  know  how  to  do  that,  simply 
COPY  the  first  file  or  program  on  the  disk  back  to 
the  same  disk  under  another  name,  and  then  save 
this  program.  Don't  forget  to  then  rename  the 
copied  file  back  to  its  correct  name  (or  do  another 
copy). 

Once  the  program  is  properly  located,  a 
simple  <shift  RUN>  (on  the  PET)  will  load  and  ex- 
ecute the  program.  If  you  do  not  have  the  4.0  PET, 
you  will  have  to  LOAD  "*",8  and  then  type  RUN 
for  other  Commodore  machines.  The  program 
will  read  through  the  entire  disk  and  store  all  PRG 
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files  into  an  array,  skipping  all  nonprogram  files. 
It  then  presents  a  menu  in  two  columns  (four  on 
the  8032)  of  all  programs  on  that  disk.  The  first 
option  is  "next  page,"  in  case  there  are  more  pro- 
grams than  can  fit  on  one  page.  If  this  choice  is 
continually  taken  until  there  are  no  more  selec- 
tions, you're  offered  a  choice  to  go  back  to  the 
beginning,  to  access  a  different  disk,  or  to  end 
the  process. 

Selection  By  Cursor 

It  is  in  selecting  your  choice  that  this  menu  pro- 
gram is  different  from  most.  I  have  often  seen 
students  hesitate  for  a  long  time  in  converting 
their  choice  to  a  number,  pressing  the  correct 
number,  and  then  pressing  RETURN.  I  have  also 
seen  the  opposite  problem:  people  moving  quickly, 
watching  the  screen,  and  hitting  the  wrong 
number.  To  correct  for  this  in  another  program,  I 
developed  a  subroutine  which  allows  for  menu 
selection  by  control  of  the  cursor  keys.  When  the 
menu  appears,  one  default  choice  is  highlighted 
(in  RVS  reverse  print).  Pressing  the  cursor  control 
keys  causes  the  highlight  to  move  up  or  down, 
right  or  left,  through  the  list.  I  added  a 
wraparound,  so  that  a  cursor  down  from  the  last 
item  in  a  column  will  send  the  highlight  to  the 
top  of  that  column.  This  provides  an  almost  fool- 
proof method  of  input.  To  make  it  just  about  per- 
fect you  might  want  to  also  disable  the  STOP  key. 
I  like  to  refer  to  this  subroutine  as  a  light  pen — 
without  the  pen.  I  have  used  it  in  many  programs, 
and  I  encourage  you  to  excerpt  the  subroutine  for 
use  in  your  programs.  After  we  have  looked  at 
the  program  in  some  detail,  I  will  explain  the  in- 
itialization steps  needed  before  calling  the  routine. 

Simulated  WHILE  Loop 

Before  we  look  at  the  details  of  the  program,  a 
word  about  another  interesting  feature  you  may 
want  to  use  in  your  programs.  In  structured  pro- 
gramming, WHILE  and  UNTIL  loops  are  con- 
sidered very  nice.  Unfortunately,  the  FOR/NEXT 
loop  does  not  quite  fill  the  gap  in  BASIC.  It  controls 
a  loop  where  a  variable  is  counting  for  a  specified 
number  of  executions,  but  it  does  not  work  as 
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Ill  this  64  dinrloiif,  ilw  cursor  is  on  "TISDCADMC". 
Pressiiig  RETURN  will  load  and  run  that  progrnfii. 

well  when  some  other  condition  is  meant  to  con- 
trol the  repetition.  We  usually  settle  this  problem 
by  adding  a  line  such  as:  IF  condition  THEN  GOTO 
line  nn.  That  works,  but  can  lead  to  an  unclosed 
FOR/NEXT  loop,  which  brings  on  its  own  prob- 
lems. You  can  simulate  the  WHILE  structure  by  a 
line  such  as 

300  FOR  I  =  0  TO  1  STEP  0 

which  will  count  by  zeros  for  a  very  long  time, 
until  it  reaches  one.  The  real  way  out  is  tested  for 
in  the  body  of  the  loop.  When  discovered,  simply 
set  I  equal  to  1.  For  example, 

360  IF  Z  =  13  THEN  1  =  1:  REM  CARRIAGE  RETURN 

Getting  Around  GET 

As  the  program  was  originally  written,  the  GET 
statement  was  used  to  retrieve  the  characters  of 
the  program  names  one  at  a  time  from  the  direc- 
tory sectors  of  the  disk.  This  made  the  program 
rather  slow.  In  a  worst  case,  a  Commodore  8050 
disk  drive  containing  the  maximum  224  programs 
for  that  format  took  almost  two  minutes  to  read  the 
directory.  I  tried  writing  RETURN  characters, 
CHRS(13),  into  the  directory  so  that  I  could  use 
the  faster  INPUT  statement  instead.  However, 
this  caused  funny-looking  directories  and  created 
problems  where  there  were  13's  in  the  directory 
that  were  not  RETURNS  (such  as  references  to 
track  13  or  sector  13). 

I  considered  storing  the  directory  entries  in  a 
sequential  file  on  the  disk,  and  then  having  my 
program  read  the  file  instead  of  the  directory  sec- 
tors. This  approach  would  have  required  an  addi- 
tional program  to  create  the  sequential  file  and  to 
update  the  file  whenever  a  new  program  was 
saved  on  the  disk.  In  addition  to  these  complica- 
tions, it  seemed  unappealing  to  use  up  disk  space 
with  a  file  containing  information  that  was  already 
on  the  disk. 

The  only  other  approach  in  BASIC  was  to 
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Atari  "Super  Dinxtori/"  allozi^s  i/ou  to  store  descriptions 
along  with  the  program  names. 

read  in  the  directory  sectors  and  create  DATA 
statements  to  be  added  to  the  Super  Directory 
program,  but  this  again  required  a  second  program 
to  generate  the  DATA  statements  and  update 
them  as  new  programs  were  saved  to  the  disk. 

The  only  way  to  achieve  a  truly  significant 
increase  in  speed  was  to  read  the  directory  infor- 
mation from  the  disk  with  machine  language. 
Fortunately,  I  did  not  have  to  write  the  machine 
language  program  to  do  this.  Jim  Butterfield's 
"String  Thing"  (COMPUTE!,  November  1982)  is  a 
machine  language  (ML)  routine  which  reads  in- 
formation from  the  disk  into  a  variable.  It  functions 
like  a  very  fast  INPUT#.  I  modified  the  routine  to 
read  the  entire  contents  of  a  disk  sector  into  a 
string  variable  (lines  6000-6100).  Lines  6000-6010 
create  a  254  character-long  variable  called  INS. 
The  ML  routine  puts  data  into  the  first  variable  in 
the  program,  so  it's  important  that  1N$  be  set  up 
before  any  other  variables  are  mentioned.  Lines 
6020-6030  let  the  program  know  whether  it's 
operating  in  a  64  or  a  PET/CBM,  then  lines  6040- 
6060  load  the  DATA  for  the  modified  String 
Thing,  adjusting  it  as  necessary  for  the  particular 
computer. 

The  increase  in  speed  using  this  approach  is 
dramatic.  With  a  typical  PET  disk,  the  time  re- 
quired to  load  the  directory  was  cut  from  about  45 
seconds  to  only  8  seconds.  The  worst  case  (fvill  8050 
disk)  time  dropped  from  2  minutes  to  less  than  15 
seconds.  Loading  times  are  slightly  longer  for  the 
1541  disk  used  with  the  64,  due  to  its  serial  com- 
munications, but  the  increase  in  speed  provided 
by  the  machine  language  is  even  more  significant. 

On  To  The  Directory 

First  a  quick  run-through  of  the  program  blocks. 
The  first  line  jumps  to  line  1000.  This  is  designed 
as  a  time-saver,  allowing  room  at  the  top  for 
frequently  used  subroutines.  It  also  mimics  the 
Pascal  requirement  that  all  routines  and  proce- 


dures  be  defined  before  the  body  of  the  program. 
The  most  common  routine,  lines  1  and  2,  is  the 
get-character  routine.  Disk  error  check,  lines  10- 
20,  is  next  and  uses  the  error  channel,  not  DS$,  in 
order  to  be  compatible  with  earlier  versions. 

The  main  video  selector  (or  penless  light) 
starts  at  line  100.  It  in  turn  calls  supportive  routines 
at  line  500  and  line  600.  Before  this  can  be  used, 
the  clear  display  routine  at  line  900  is  called  by 
the  main  program. 

Two  other  routines  are  called  only  once  and 
they  have  been  placed  after  the  program  body,  to 
help  with  readability.  The  routine  at  line  2000 
reads  the  disk  header  and  determines  the  type  of 
disk  being  used.  It  then  goes  to  the  beginning  of 
the  directory  and  reads  the  program  names  into 
an  array.  If  you  have  an  8050  disk  drive,  you'll 
need  to  replace  the  following  lines: 

2040  FO=ASC(IN?) :IF  (FO  AND  3) =3  THEN  210 

0 
2100  HE$=MID5(IN$,5,16)+",  8050  FORMAT" 
2110  SYS  a96:SYS  896 
2120  SE=28 

Line  2900  allows  you  to  define  the  disk  drive  to  be 
used.  This  defaults  to  drive  0,  unit  8.  If  vou  delete 
line  2910,  lines  2920-2940  will  then  allow  you  to 
select  the  device  and  drive  number  each  time  the 
program  is  run. 

The  program  has  two  possible  outcomes,  and 
thus  concludes  in  the  sections  beginning  at  either 
line  3000  or  line  5000.  If  the  search  was  unsuc- 
cessful, lines  3000-3050  give  the  options  of  re- 
starting the  current  disk  (the  directory  does  not 
have  to  be  read  again  from  disk,  as  the  array  with 
program  names  has  not  been  disturbed);  of  start- 
ing over  with  a  new  disk;  or  of  quitting  the  search. 
A  successful  search  takes  us  to  line  5000,  which 
loads  and  runs  the  chosen  program  via  the  dy- 
namic keyboard  method. 

If  you  don't  want  to  type  in  the  program,  I'll 
make  copies  (PET/CBM/64  version  only).  Send  $3, 
a  disk  (8050  or  4040/1541  format),  and  a  stamped, 
self-addressed  mailer  to: 

Michael  A.  Coiitiiio 

Dept.  of  Mathematics  &  Computer  Science 
Cal  State  ihiivevsity,  Hmjimni 
Hay-ward.  CA  94542 

Program  1:  super  Directory  For  PET/64 

64  users  should  refer  to  the  "Automatic  Proofreader"  article 
before  typing  this  program  in.  PET/CBM  owners  should  ignore 
"the  :rem  at  the  end  of  each  line. 

0  GOTO  1000  :rem  42 

1  GETZ$:IF  Z$=""  THEN  1           : rem  183 

2  RETURN  J  rem  18 
10  INPUT#15,ER,ER$:IF  ER=0  THEN  RETURN 

:  rem  0 

20    PRINT"DISK    ERROR    f'ERsPRINT    ER$;END:RE 

TURN  ; rem   79 

100  PRINT" [HOME} (3  DOWN }" t FOR  1=0  TO  15iF 

OR  J=0  TO  NC:PRINTTAB(J*20) rV$(I+J*16 


) ;  :rem  233 

110  NEXT  J:PRINT:NEXT  I  : rem  164 

120  POKE  XB,0:RL=0:CL=0:GOSUB  600  s  rem  131 

130  FOR  1=0  TO  1  STEP  0:GOSUB  1:Z=ASC{Z?) 

:TC=CL:TR=RL!FOR  J=0  TO  1  STEP  0 

;rem  67 
140  IF(ZAND127)=29  THEN  CL=( CL+1+2* ( Z=l 57 
) )AND  NC  :rem  139 

150  IF(2AND127)=17  THEN  RL=( RL+1+2* ( Z=145 
))AND  15  :rem  121 

160  IF  Z=13  THEN  1=1  : rem  7 

170  IF  V$(RL+CL*16)<>B5  THEN  J=l  :rem  162 
180  NEXTsIF(TC<>CL)OR(TR<>RL)  THEN  GOSUB 

{SPACE) 500  :rem  134 

190  NEXT: RETURN  : rem  243 

500  POKE  XA,TR+3sPRINT:PRINTTAB{TC*20)  ,-V$ 

{TR+16*TC)  !rem  101 

600  POKE  XA,RL+3;PRINT:PRINTTAB(CL*20) ; " 

{RVS)"rVS(RL+16*CL) iRETURN    : rem  241 
900  FOR  1=1  TO  NV:V$(I)=BS:NEXT:RETURN 

;  rem  2 
1000  PRINT" {2  H0Me}{CLR}":G0SUB  6000 

:rem  203 
1010  NC=1:IF  PEEK(213)=79  THEN  NC=3 

;rem  115 
1020  NV=(NC+1)* 16-1: GOSUB  2000:B$=" 

{19  SPACESl":DIMV$(NV)       :rem  241 
1100  NP=0:SL=1:V?(0)="NEXT  PAGE":PRINT" 

{CLR} (DOWN) {8VS}"HE$         :rera  152 
H10  SL=SL+NP!NP=MA-SL+1  :IF  NP>NV  THEN  NP 
=NV  :rem  201 

1120  IF  NP=0  THEN  3000  ; rem  80 

1130  GOSUB  900:FOR  1=1  TO  NP :V? ( I )=PR$ (SL 
+1-1) :NEXT  :rem  131 

1140  GOSUB  100:IF  CL+RL=0  THEN  1110 

;reiT\  87 
1150  GOTO  5000  :rem  197 

2000  GOSUB  2900:MA=O  : rem  66 

2010  OPEN  15,UN,15, "I"+DR$!GOSUB  10 

:rem  117 

2020  OPEN  1,UN,3, "$"+DR$  :rem  206 

2030  SYS  896  :ren  107 

2040  F0=ASC(IN$) :IF  { FO  AND  3)=1  THEN  210 

0  : rem  144 

2050  CLOSE  ItCLOSE  15;PRINT"BAD  DISK  FORM 

AT": END  :rem  91 

2100  HE$=MID$(IN?, 143,16)  : rem  18 

2110  IF  F0>1  THEN  SE=18 :HE$=HE$+" ,  1541/4 

040  FORMAT": GOTO  2  200        ; rem  250 

2120  IF  F0=1  THEN  SE=19 :HE$=HE$+" ,  2040  F 

ORMAT"  :rem  200 

2200  DIM  PR5(SE*8) :FOR  1=1  TO  SE : SYS  896 

: rem  162 
2210  FOR  J=l  TO  254  STEP  32 : A=ASC (MID? ( IN 
S, J) )  AND  127  :rem  16 

2220  IF  A=2  THEN  MA=MA+1 iPR$ (MA)=MID5 ( IN? 
,J+3,16)  :rem  118 

22  30  NEXT  J  :rem  80 

2240  IF  ST  THEN  I=SE  :rem  75 

2250  NEXT  I  :rem  81 

2260  CLOSE  1:CL0SE  15:RETURN       s rem  161 
2900  UN=8:DR=0:DR$="0"  s rem  197 

2910  RETURN  ; rem  172 

2920  PRINT"UNIT  #{2  SPACES }" rUN; s INPUT" 

(4  LEFT}"; UN  : rem  122 

2930  PRINT"DRIVE  #{2  SPACES} "; DR; : INPUT" 
{4  LEFT}";DR:IP  DR*{DR-1)  THEN  2930 

:rem  102 

2940  DR?=STR?(DR) :RETURN  : rem  228 

3000  GOSUB  900: PRINT" {CLR} (DOWN} NO  MORE  P 

ROGRAMSON  DISK. {2  SPACES }0PTI0NS  AR 

E:  :rem  216 
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3020  VS(0)="SEE  NEW  DISK" s V$ ( 2 )="RESTftBT 

fSPACE]THIS  DISK" : V? (4) ="QUrT " 

! rem  112 
3030  GOSUB  100s IF  RL=0  THEN  RUN  (rem  207 
3040  IF  RL=2  THEN  1100  : rem  84 

3050  PRINT" {CLR}"; END  -rem  61 

5000  PRINT "{CLR} [2  DOWN}loaD";CHR$(34) ;V$ 

(RL+16*CL) rCHR$(34) ? " , " r UNtPRINT" 

{4  D0WN3RUN{H0ME}"?  :rem  93 

5010  IF  XA=214  THEN  POKE  631,13:POKE  632, 

13: POKE  XB,2sEND  s rem  80 

5020  POKE  623,13tPOKE  624,13:POKE  158, 2:E 

ND  :rem  44 

6000  IN$="ZZ":FOR  1=1  TO  6 s IN$=IN$+IN$ : NE 

XT  srem  179 

6010  IN$=MID$(IN?,2) :1N5=IN$+IN5  : rem  250 
6020  IF  PEEKt65535)=255  THEN  XA=214tXB=19 

8: GOTO  6040  trem  58 

6030  XA=216:XB=158  : rem  231 

6040  FOR  1=896  TO  929: READ  X$:IF  LEFT$CX$ 

,1)<>"A"  THEN  6060  : rem  51 

6050  X?=STR$(VAL(RIGHT${X5,LEN(X$)-1) )+3* 

(XA=216))  srem  19 

6060  POKE  I,VAL(X$) sNEXT  srem  153 

6070  RETURN  srem  173 

6080  DATA  160,2,177,A45,153,A137,0,200,19 

2,6,208,246,162  : rem  226 

6090  DATA  1 , 32 , 198 , 255 , 32, 228, 255, 164, A14 

2,145,A140,200  :rem  179 

6100  DATA  132,A142,196,A139,208,242,76,20 

4,255  srem  254 

Program  2:  Super  Directory  For  VIC 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  tinis 
program  in. 

0  GOTO1000  srem  42 

1  GETZ?sIFZ$=""THENl  srem  183 

2  RETURN  srem  18 
10  INPUT#15,ER,ER?sIPER=0THENRETURN:rem  0 
30  PRINT "DISK  ERROR  #"ER:PRINTER$ sEND: RET 

URN  srem  80 

50  FORI =1T0SK 5 GET#1,A$: NEXT s RETURN 

srem  214 

70  NA$  =  " " 8  F0RK=1T0 16  8  GET* 1 , A$  8  NA$=NA$+A$ : 

NEXTKs RETURN  srem  201 

100  PRINT" {HOME} {3  DOWN} " s FORI =0TO15 ! PRIN 

TV$(I)!NEXT  srem  220 

180  POKE198,0eRL=0:GOSUB600        srem  91 

300  FORI=0TOlSTEP0sGOSUBl 5Z=ASC(Z?) sTR=RL 

tFORJ=0TOlSTEP0  trem  165 

340  IF(ZAND127)=17THENRL={RL+1+2*(Z=145)) 

AND15  srem  122 

360  IFZ=13THENI=1  srem  9 

370  IFV5(RL)<>B$THENJ=1  i rem  89 

380  NEXTjIF(TR<>RL)THENGOSUB500   jrem  246 

410  NEXT s RETURN  srem  238 

500  POKE214 , TR+3  s  PRINT  s  PRINTV? ( TR ) 

srem  138 

600  P0KE2 14, RL+3 SPRINT 5  PRINT "{RVS)"V$(RL) 

1  RETURN  srem  235 

900  FORI=lTONVsV$(I)=B$sNEXTsRETURNtrem  2 

1000  PRINT" [2  HOME} {CLR} "jIFPEEKC 50003 )=0 

THENNEW  srem  8 

1030  NV=15sGOSUB2000  5B$  =  "{l9  SPACES  3 "sDIM 

V$(NV)  srem  43 

1150    NP=0sSL=lsV${0)="NEXT    PAGE"5PRINT" 

{CLR} {D0WN3{RVS}"HE$  srem    157 

1200    SL=SL+NPsNP=MA-SL+l5lFNP>NVTHENNP=NV 

srem   201 
1220    IFNP=0THEN3000  srem   81 
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1250  GOSUB900  8F0RI=lT0NPs V$ ( I )=PR$ ( SL+I-1 

) 5  NEXT  s  GOSUB100  s IPCL+RL=0THEN1 200 

srem  81 
1650  GOTO5000  srem  202 

2000  GOSUB2900sMA=05OPEN15,UN,15, "I"+DR$s 

GOSUB10  5OPEN1,UN,3,"$"+DR$   trem  114 
2060  GET#l,FO$sFO=ASC(FO$+"" ) s SK=141 s IFFO 

=67THENSK=3  srem  45 

2110  GOSUB50sGOSUB70sHE$=NA$5SK=96eSE=19+ 

(F0>1) slPP0=67THENSK=742sSE=28 

3  rem  74 
2140  GOSUB50sSK=ll8DIMPR$CSE*8)  trem  72 
2330  F0RI=lT0SEsF0RJ=lT08sIFSTTHENI=SEs J= 

8sGOTO2440  srem  72 

2360  GET#l,B$sGET#l,A$sGET#l,A$sGOSUB70sI 

PB$ =CHR$ (130) THENMA=MA+1 s  PR? ( MA ) =NA$ 

srem  181 
2420  GOSUB50sIFJ<>8THENGET#l,A$sGET#l,AS 

srem  101 
2440  NEXTJ , 1 5  CLOSEl s  CLOSEl 5  s  RETURN 

srem  217 
2900  INPUT "UNIT  #{2  SPACES }8{ 3  LEFT] "r UN 

srem  239 
2950  INPUT"DRIVE  #{2  SPACES}0{3  LEFT}";DR 

slFDR*CDR-l)THEN2950         srem  230 
2960  DR$=STR$(DR) s RETURN  srem  230 

3000  GOSUB900sV$ (4 )="QUIT" SPRINT" {CLR} 

{D0WN}N0  more  PROGRAMS  ON  DISK. 

{2  SPACES }0PT10NS  ARE t       srem  213 
3030  V$(0)="SEE  NEW  DISK" s V$ { 2 )="RESTART 

{SPACE}TH1S  DISK" : GOSUB100: IFRL=0THE 

NRUN  srem  183 

3080  IFRL=2THEN1150  srem  93 

3090  PRINT" {CLR}" SEND         '  srem  65 

5000  PRINT"{CLrH2  D0WN}L0AD"CHR$C34)V$(R 

L)CHR${34) ", "UNsPRINT"{5  DOWN} RUN 

{home}";  srem  25  2 

5020  POKE631,13sPOKE632,13tPOKE198,2:END 

srem  46 

Program  3:  super  Directory  For  Atari 


article  before  typing  Vn% 


Refer  to  the  "Automatic  Proofreoder" 
program  in. 

JJ  100  REM    ■ii|lji:d;ppa<*lrf^<iT?gMi 

OB  105  DIM  DM*  <  19) 

BL  107  DN«="DISK  NAME" 

DC  110  GRAPHICS  0B  ENT  =  0!  CHANGED  =  0 

Nil  1  15  GOSUB  5000 

HE  120  DL  =  PEEK  (560> +PEE 

6D  130  POKE  DL-1,7  +  645P 
DL+4,135POKE  DL 


L!  140 

SETCOLOR  4,9, 4sS 

HP  150 

SETCOLDR  0, 1 , 105 

BD  160 

?  "super   direct 

!L  170 

DIH  FL*(40«64) ,T 

C* (40*64) , CDN* (2 

6C  180 

TRAP  200 

LJ  190 

OPEN  #1 ,6, 0, "D: t 

GOTO  210 

OP  200 

?  "Can't  read  di 

«";PEEK ( 195) s EN 

PG  210 

INPUT  ttl  , T*:  IF  L 

250 

FF  220 

NF=NF+1 

GH  230 

PL* (NF«40-39, NF« 

F»40-25) =" <30  SP 

SC  240 

GOTO  210 

JS  250 

CLOSE  #lsFREE*=T 

KC  260 

TRAP  2703OPEN  #1 

IR-':TRAP  40000:e 

K (561 ) »256+4 

DKE     DL+2,65POt<E 

+  24,  13 

ETCOLOR  1,0,10 

POKE  752, 1 

Dry" 

* (40) ,F» (40) , DS 

0) , FREE* (17) 

.*"iTRAP  40000s 

rectory.    Error 

D 

EN(TS)<17  THEN 


40-26>=T*: FL* (N 
ACES: " 


,4,0, "D: DESCR. D 
OTO  280 


Super  Directory  For  Atari  progr?m^^^^^^^ 


"Super  Directory"  is  an  easy-to-use  menu 
program  for  selecting  and  running  BASIC 
programs  from  disk.  In  addition,  it  alleviates 
the  limitations  of  Atari's  eight-character 
filename  by  storing  a  20-character  description 
of  each  filename. 

Type  in  Program  3  and  SAVE  a  copy  of 
Super  Directory  on  every  disk  you  want  to 
use  it  with  (you  may  want  to  call  it  MENU). 
You  can  change  line  107  to  name  your  disk. 
This  name  will  appear  at  the  top  of  the  menu 
program  when  RUN . 

When  you  first  RUN  Super  Directory,  it 
will  read  in  the  disk  directory  and  display  it 
on  the  screen.  A  large,  wide  cursor  will  be 
resting  on  top  of  the  first  filename  in  the 
directory.  You  can  move  the  cursor  up  or 
down  with  the  arrow  keys,  but  you  do  not 
have  to  hold  down  CTRL.  You  can  also  use  a 
joystick  to  move  the  cursor  up  or  down. 

If  the  directory  will  not  fit  on  one  screen, 
it  will  scroll  upward  as  you  push  the  cursor 
"past"  the  bottom  of  the  screen.  You  can 
also  scroll  the  screen  down  when  the  cursor 
is  at  the  top  of  the  screen.  Press  any  key  to 
select  the  file,  or  use  the  joystick  trigger  but- 
ton. 

You  will  switch  to  another  screen,  where 
you  are  given  three  choices:  press  START  to 
RUN  the  program,  press  SELECT  to  change 
the  description,  and  OPTION  to  save  the 
descriptions.  You  can  also  press  RETURN  to 
skip  these  choices  and  return  to  the  menu. 

Making  Sense  Of  Filenames 

You  probably  noticed  that  the  second  column 
on  the  screen  said  "no  description"  for  all 


the  filenames.  This  is  because  you  haven't 
entered  any  yet.  If  you  press  SELECT  while 
you  are  on  the  other  screen,  you  can  enter  a 
description,  up  to  20  characters.  You  can  enter 
anything  you  want  here  that  will  help  you 
make  sense  of  filenames  like  ASKRD.TXT, 
WMAKER,  HAWKMEN,  or  EASMD.COM. 
The  description  file  is  saved  to  the  disk 
under  the  filename  DESCR.DIR.  If  you  delete 
it,  your  descriptions  are  gone.  Every  time 
you  RUN  Super  Directory,  it  will  match  up 
each  description  with  each  directory  entry.  If 
you  move  a  file  around  on  the  directory,  it 
will  still  be  matched  up  with  the  proper  de- 
scription. Super  Directory  also  has  to  skip 
over  descriptions  that  once  applied  to  deleted 
files.  This  correlation  process  takes  a  few 
seconds  before  the  menu  first  appears. 

Verify  Your  Update 

You  can  press  OPTION  on  the  second  screen 
to  insure  that  the  description  file  is  updated 
after  you  change  it.  It  wilt  also  be  automati- 
cally written  out  if  you  press  START  to  run  a 
program. 

There  are  some  files,  like  DOS. SYS,  that 
you  cannot  run,  obviously.  Super  Directory 
only  lets  you  run  BASIC  programs  that  have 
been  SAVEd  (not  LISTed)  to  disk.  If  you  try 
to  run  any  other  kind  of  file,  or  if  there  is 
some  kind  of  disk  error,  Super  Directory  will 
so  inform  you,  then  reRUN  itself. 

Thanks  to  the  description  file.  Super 
Directory  is  more  than  a  mere  menu  pro- 
gram. It  can  help  you  catalog  your  disks, 
and  get  around  the  eight-character  filename 
limitation. 


OJ  270 


NJ  280 

FE  285 

SF  290 
KK  291 

CK  292 
m  293 
SB  294 
m   2  95 

H   296 

HC  297 


FOR 
=  "n 
E  tt 
TRA 
DSC 
DSC 
280 
CLO 
FOR 
0-3 
T*  = 
FOR 
F«  = 
IF 

J: 
FL* 
FL* 
on" 


1=1  TO  NF: FL* < I »40-22, I«40> 
o  description  " : NEXT  I : CLOS 
1:GDTD  310 

P  290:INPUT  «  1  , F* : ENT  =  ENT  + 1 s 
*  (ENT*40-39)  =  '■  C38  SPACES>" 
* (ENT»4  0-39, ENT»40)=F«; GOTO 

SE  #1 

1=1  TO  NF: I X40=I«40: 1X2=1X4 
9 
FL*  (  I X2> 

J=l  TO  ENT 
DSC* ( J«40-39) 
T*  <  1 ,  13)  <  >F*  (  1 
SOTO  297 

(1X2, IX40)=F*:GOTQ 
( 1X40-22. 1X40) ="nD 


13)  THEN  NEXT 


300 
descr  i  pt  i 


BL  300 
EE  310 

HJ  31  1 


HB  330 
BE  335 

Ktl  337 


U  340 
LG  350 
no  360 

AE  370 
BE  380 


NEXT  I 

ENT=NF:LIM=NF: IF  LIM>19  THEN  LI 

M=19 

CDN*="  " : CDN* < 19)="  ":CDN«(2)=C 

DN*:Z=ll-LENCDN*)/2: CDN* ( Z, 2+LE 

N  CDN* )  ) =DN* 

POSITION  20,0;?  CDN*; 

?    "  I J< »=» .t-.' Li-m=i:vi 1 3   ErjiW=fci>t>iJ-^Jit 

iSikiUiUf  1 0  ssns^y 

COLOR  21:PL0T  2,2:DRAWT0  38,2:P 

LOT  2,22:DRAWT0  38 , 22: POS I T I  ON 

2,3 

FDR  1=1  TO  LIM 

F*=FL* ( I *40-39) 

?  "  ";F*(3,10)j"  " ; F« < 1 1 , 13) ; " 

" ; F*  C IS, 3a> 
NEXT  I:CURR=1 
Y  =  3 
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HE  Zfi 


FC  400 
m  425 
NH  430 


NE  435 
CG  440 
JK  445 


BB  450 


IF  460 


OK  470 
HC  490 
6C  500 
HD  505 

01  510 

CI  520 

Jf  525 

Eft  527 

CM  530 
EC  540 
ftfl  550 
6J  560 
ftO  570 
JF  580 
JG  600 

m  605 

LD  610 
NC  620 
EL  625 

LO  627 

EJ  628 

m  630 

OL  640 

CE  64  5 

L£  650 
FC  660 
LB  670 

DC  680 

PB  685 
PB  690 

OH  695 
SC  697 
fll  700 

KF  7  10 


F«=FL* (CURR«4  0-39) :T«=F*(3. 10) : 
T*  (9)="  ■■:  TS  (  10>=F*  <  11  ,  13)  jT*  <  1 

3>= T« < 15) =F* ( IB, 38) : F*=T« 

A  =  USR  <ADR  CM*)  , ADR  (T*)  ,  13) 

POSITION  2,Y:?  "   " ; T« 

ST=STICK (0) : S=PEEK (764) ; IF  S=25 

5  AND  PEEK (53279 ) =7  AND  ST=15  A 

ND  STRIG(0)  THEN  430 

SOUND  0, 20, 10,8 

POSITION  2,Y:?  "  " ; F* 

IF  PEEK(S3279><7  OR  S=12  OR  STR 

IB(0)=0  THEN  POKE  764,255:G0T0 

500 

IF  (S=15  OR  ST=13)  AND  CURR+1<= 

ENT  THEN  Y=Y+ 1 : CURR=CURR+ 1 : I F  Y 

>LII1  +  2     THEN     ?     "{INS    LINE>";:POS 

ITIDN     2,3;?     "{DEL     LINEJ"tY=Y-l 

IF  <S=14  OR  ST=14)  AND  CURR>1  T 

HEN  Y=Y-1 :CURR=CURR-1 : IF  Y<3  TH 

EN  POSITION  2,3:?  "{INS  LINEJ"; 

sPDSITION  2,22:?  "{DEL  LINE>";: 

Y  =  Y+1 

SOUND  0,0,0,0sPOKE  764,255 
GOTO  390 
SOUND  0,0,0,0 


?  "{CLEAR>"; 
,20;?  FREE*: 


F* ( 1 , 12) : POSITION  2 


'Press 


POSITION 


2,8 

to  run 


pr  o 


gr  am . 

•?      :  "7 


M^WJAJI    to     do     desc 


iumikcikM    to     save     de 
l:]^*ll?ITH    to    return 


650 

S) 
IF 


T*  (  I  ,  DO 


T«  ( 


"Press 
ription. " 
?  :?  "Press 
scri  pt  i  ons . 
?  :?  "Press 
to  menu . " 
POKE  53279,0 

CONSOLE=PEEK (53279) : K=PEEK (764) 
IF  CONSOLE<7  OR  K=12  THEN  600 
IF  PEEK<20)<30  THEN  540 
POKE  755, 2-PEEK (755) 
POKE  20,0: GOTO  530 
POKE  755, 2: POKE  764,255 
IF  K=12  THEN  710 
IF  CONSDLE< >6  THEN 

T«="D:  " : T* (3)=F*  (  1 

FDR  1=1  TO  LEN(T*) 

"  "  THEN  NEXT  I 

POP  :IF  ASC (F« < 10) ) >32  THEN 

I ) =" . " : T* ( I+l ) =F* ( 10, 12) 

GOSUB  1000:  IF  T*=" D: DOS . SYS  "  TH 

EN  DOS 

TRAP  640:GRAPHICS  0:RUN  T* 

T*=" Can't  run  program.  Error  #" 

: T* (LEN (T*) +1 ) =STR* (PEEK (  195)  )  : 

A  =  USR ( ADR (M«)  , ADR (T«)  . LEN  (T«)  ) 

POSITION  2,18:?  T«;:FDR  W=l  TO 

500:NEXT  W:RUN 

IF  CONSOLE< >5  THEN  720 

?  " {CLEAR> " ; F* ( 1 , 12) 

?  "C5  DOWN}Edit  message  below  ( 

ma>:  20  char acters)  ";  POKE  752,0 

T«  =  F*  (  15,  34)  :  ?  "  ";T*s?  "  — '■ 

{2  UPJ": INPUT  T« 

IF  T*=""  THEN  660 

IF  LENCT*)<20  THEN  T*<LEN(T«)+1 

)="{20  SPACES}" 

IF  LEN(TS)>20  THEN  T*=T*(1,20) 

IF  T«<>F*(1S,34)  THEN  CHANGED=1 

FL*(CURR#40-22,CURR*40)=T*:PDKE 

752,  1 
?  " {CLEAR>super    d i rector y ": GOT 


SP  725 

GL 

1000 

DP 

1005 

LN 

1010 

BC 

1020 

0  ZZ0 
DP  720  GOSUB  1000:  I 
POSITION  2, 

rTrart--T.t-.tji " 

GOTO  530 
REM  SAVE  DE 
IF   NOT  CHA 
TRAP  1030 
OPEN  #1,8,0 
40000: GOTO 

HD  1030  CLOSE  ^»  1  :  T* 
R«  (PEEK (  195 
R  <T*)  , LEN  (T 
TS: RETURN 
FDR  1=1  TO 
PRINT  #1;FL 
+  39) 
NEXT  I 
CLOSE  ttl:RE 
DIM  M*<40) 
M*="hD{B>ra< 
<:[=>fflh{[=>[5" 

KI  5020  M*  (LEN<M«)  + 
CI>{||}{E>[3I 

Kl  5030  RETURN 


F   NOT 

4:7  "I 


CHANGED  THEN 


SCRIPT 
NGED  T 


I  DNS 

HEN  RETURN 


,  "D: DESCR. DIR" : TRAP 

1040 
=  "  Er  r  or 
) ) : A=US 
«)  )  :PDJ 


ir  #";T*(S)=ST 
JSR (ADR (M*) , AD 
)S1TI0N  2,6:? 


EK 

1040 

JK 

1050 

EP 

1060 

KK 

1070 

HP 

5000 

LJ 

5010 

ENT: CURR=I-1 
*<CURR«40+1, CURR«40 


TURN 

I  JB»t<:E>hhiISCB>  "h 


1 ) ="hh 

i3snzr'  { 


{[^>i2B{,  >DC5 
2     ,>" 


Program  4:  Super  Directory  For  PC  And  PCjr 

100  'Super  Directory  -for  The  IBM  Persona 

1  Computer 

110  '-for  monochrome  or    color  adaptor,  80 

columns 
120  SCREEN  O,O,0: WIDTH  80: COLOR  7,0!CLS: 
DEFINT  A-Z:KEY  DFF:FOR  1=1  TO  10: KEY  I," 
"iNEXT 

130  CR*=CHR*(17)+CHR*(196)+CHR*(217) 
140  PRINT"WelcDme  to  ";:CDLaR  15:PRINT"S 
uper  Directory"; COLOR  7 

150  'Remove  the  word  REM  -from  -following 
line  for    automatic  use  with  drive  A 
160  REM  DR1VE*="A: ":FSPEC*="A: ». *":BOTD 
200 
170  PRINT: PRINT  "Select  Drive:  (";: COLOR 

16, 15: PRINT" A  B";: COLOR  7,0: PRINT  CHR* ( 
29) ;CHR*<29) ; "/";CHR*(2S; ; " ) " 
130  DRIVt*=INKEY$+":  ":.A=ASC  (DRIVES)  :  IF  ( 
A  OR  32X97  OR  (A  OR  32)  >98  'HEN  130 
190  DRIVE4=CHR*(A  AND  223) +" : " : F3PEC$=DR 
IVE$+"*. «" 

200  GOSUB  5000: CLS: COLOR  23: PRINT"Resdin 
g  description  file" 

210  Din  D* (ENTRIES) : FOR  1=0  TO  ENTRIE3:D 
S(I)=CHP*(9)+"  —  "  :NE>:T 
220  ON  ERROR  GOTO  310 
230  OPEN  DRIVE$+"DEECR.DIR"  FOR  INPUT  AS 

ttl 
240  LINE  INPUT  #1 ,  DISKNAME5:  uINE  Ii\JPUT#l 
, A$: NUMREC=VhL (AS) 
250  FOR  ITEMS=i")  TO  NUMREC 
260    LINE  INPUT  #1,FS:LINE  INPUTttl.D* 
270    FOR  1=0  TO  ENTRIES 
280      IF  F$=Ft.;li  THEN  D*  !  I )  =D$ 
290      NEXT: NEXT 
300  GOTO  320 
310  PESJriE  320 
320  CLOSE**  1:  ON  ERROR  SOTO  0 
330  PAGES=INT (ENTRIES/ 10) 
340  CURR=0 

350  START=CURR*10:FiNI3H=START+9: IF  FIWI 
5H GENTRIES  THEN  FII\  I5H=ENTRIES 
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IBM  Notes:  Super  Directory     ChorlesBrannoaPrograrr' Editor 


To  use  Super  Directory,  you'll  need  an  IBM 
PC  with  at  least  64K,  and  either  a  mono- 
chrome or  color  adaptor.  Super  Directory 
will  also  work  on  the  Expanded  PCjr  with 
Cartridge  BASIC. 

If  you're  not  a  programmer,  you  may 
find  working  with  your  PC  to  be  a  bit  perplex- 
ing at  times.  You  turn  on  your  system,  wait 
45  seconds,  face  the  crv'ptic  A>  prompt,  enter 
BASIC,  then  RUN  "filename"  to  start  a 
BASIC  program.  It  would  be  much  easier  if 
you  had  a  list  of  all  the  programs  and  could 
run  any  one  by  just  pressing  a  function  key. 

Super  Directory  is  your  solution.  When 
you  RUN  it,  it  will  give  you  a  list  of  all  the 
files  on  your  disk.  To  run  any  displayed 
program,  press  the  appropriate  function 
key,  then  press  the  enter  key  (designated 
with  a  crooked  arrow).  Super  Directory  only 
displays  ten  files  at  a  time.  If  there  are  more 
than  ten  files,  you  can  press  Pg  Dn  (the 
number  3  on  the  numeric  keypad,  if  you 
have  NUMLOCK  on)  to  go  on  to  the  next 
page.  You  can  also  page  backwards  with  Pg  Up. 

There's  more  to  Super  Directory, 
though.  The  11-character  filename  length 
offered  by  PC-DOS  does  not  allow  very  de- 
scriptive names  for  your  files.  How  can  you 
make  sense  of  names  like  QTESTVl.BAS? 
Using  Super  Directory,  you  can  label  each 
filename  with  a  61  character  description. 
Super  Directory  keeps  the  description  with 
the  filename,  and  displays  it  every  time  you 
go  back  to  Super  Directory, 

To  enter  a  description,  press  the  appro- 
priate function  key  for  the  file  you  wish  to 
describe,  then  press  the  SPACE  bar.  The  last 
line  of  the  screen  will  always  tell  you  what  to 
do.  The  first  time  you  try  to  describe  a  file, 
you  will  be  asked  for  the  disk  name.  Once 
you've  entered  a  descriptive  name  for  the 
disk.  Super  Director}'  remembers  it  and  will 
no  longer  ask  you  for  it.  You  can  then  enter 
or  edit  the  description. 

After  you  enter  a  description,  the  screen 
will  be  re-drawn,  and  you  will  be  able  to  see 
the  description  you've  given  to  a  file  name. 
If  you  go  back  to  redo  a  description,  it  will  be 


displayed.  You  can  type  over  it,  or  move  the 
cursor  to  edit  the  description.  Remember  to 
put  the  cursor  at  the  end  of  the  line  when 
you  are  through  editing  (you  can  use  the 
END  key  to  skip  to  the  end  of  the  line). 

When  you  run  a  program  from  the  menu, 
the  descriptions  will  be  written  to  disk  first. 
If  you  just  want  to  write  out  the  descriptions 
without  running  a  program,  you  can  press 
ESC  from  the  main  menu.  You  will  see  the 
line: 

1.  Exit  to  BASIC  2.  Exit  to  DOS  3.  Re-Run 
4.  Save  Descriptions  5.  Menu 

Press  4  to  save  the  descriptions  to  disk. 
The  descriptions  will  be  saved  to  disk  under 
the  filename  "DESCR.DIR".  Don't  DELete 
this  or  you  will  lose  your  descriptions.  You 
can  also  use  the  other  options  to  return  to 
BASIC,  DOS,  or  re-RUN  Super  Directory. 
Pressing  5  will  take  you  back  to  the  main 
menu  (if  you  pressed  ESC  by  mistake,  say). 

Super  Directory  will  detect  errors  and 
prompts  you  to  press  ENTER.  You'll  usually 
be  returned  to  the  main  menu.  Don't  try  to 
run  a  program  which  is  not  BASIC,  however. 
You'll  probably  get  the  message  "Direct  State- 
ment in  File"  and  find  that  Super  Directory 
has  disappeared. 

You  can  make  Super  Directory  com- 
pletely automatic.  If  you  don't  have  BASIC 
on  your  disk,  you  can  use  COPY  from  DOS. 
Then  enter  this  one  line  command  to  have 
BASIC  and  Super  Directory  come  up  auto- 
matically when  you  turn  on  your  PC: 

OPEN  "AUTOEXEC.BAT"  FOR  OUTPUT  AS 
#l:PRINT#l,"BASlCSUPERDIR":CLOSE#l 

This  assumes  that  you've  saved  Super  Direc- 
tory to  the  same  disk  with  the  command 
SAVE  "SUPERDIR".  Super  Directory  will 
normally  ask  you  which  drive  you  want  to 
list  from.  If  you  only  have  one  drive,  or  want 
to  always  look  at  drive  A:,  remove  the  key- 
word  REM  from  line  160.  Leave  the  rest  of 
the  line  in  place.  Now  you  can  add  a  flexible, 
easy  to  use  menu  to  any  disk.  Super  Directory 
makes  it  easy  enough  for  a  child  to  use! 


360  CLS:COLOR  0,i5:PRlNT  STRING* (SO, 32) : 
LOCATE  l,2:PRINT'^Super  Di  rectory"  ;  TAB  <70 
);  "Drive  ";  DRIVE*:  LOCATE  1 ,  40-LEfM  (DI3KNA 
ME£)  /2:  PRINT  DI3Kr-4AME$:  PRINT 
370  FDR  I=START  TO  FINISH 


330  COLOR  0,15: PRINT  "F" ; LEFT* CMIDi CSTR* 
(1  +  I-START)  ,2)+"  ",2);:CD,_0R  15,0:PRINT 
"  ";F$(I) ; TAB (IB) ;: COLOR  7: PRINT  D$ ( i ) : P 
RINT  BTFINSSOO,  196  5  ; 
390  NEXT 
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400  LOCATE  25,i:CaL0R  15, O: PR INT'Tress  " 

;:CDLDR  0, 15: PRINT"F1 ";: COLOR  15,0: PRINT 

"  to  '■;:  COLOR  0,15:  PRINT  "F'' ;  MID4  >:5TR$  <  1 

+FI^4ISH-STHRTj  ,2)  ;  :CDLOR    15,0:PRINT'-    to 

select  program.   Press  PgUp  or  PgDn  to  p 

age,  ESC  to  quit. "; 

410  LOCATE  23, 32: PR I NT "Page  #";aURR+i;"o 

f";PA6ES+l 

420  A*=INKEY*:IF  A$=" "  THEN  420 

430  IF  A*;::CHR$(27)  THEN  540 

440  LOCATE  25,1: PRINT  SPACE* ( 79) ;: LOCATE 

25,1;PRINT"   i.  Exit  to  BAfSIC   2.  E;;it 
to  DOS   3.  Re-RUN   4.  Save  descriptions 

5.  Menu"; 
450  A*=INK:EV$:  IF  A$<  "  1 "  OR  A$>'-5"  THEN  4 
50 
460  ON  VAL  <  A$ ;  GOTO  470 , 480 , 490 , 500 : GOTO 

350 
470  COLOR  7:CLS:ErJD 
4B0  SYSTEM 
490  RUr4 

500  Q>i  ERROR  GOTO  510:GDSUB  1000:  GOTO  35 
0 

510  BEEP:  LOCATE  25,l:PRIiaT  SPACES  !79)  ;:  L 
DCATE  25,1:  COLOR  31  :  PRINT  "'Can  '  t  save  des 
criptions.  ";: COLOR  7: PR INT"Pre5s  " ; CR* 
;"  to  continue."; 

520  IF  INKEY4<>CHR$(13>  THEN  520 
530  RESUME  350 

540  IF  A$=CHR*(0)+CHR$(81)  THEN  CURR=-(C 
URR+1) * (CURR<PAGES) :GDTO  350 
550  IF  A$=CHR*(0)+CHR$(73)  THEN  CURR=CUR 
R-1:CURR=CURR-(PA6E3+1)« (CURR<0) ; GOTO  35 
O 

560  A=ASC(MID*(A*+"0^',2)  )-59:  IF  P,\0    OR  A 
>FINISH-START  THEN  BEEP: GOTO  420 
570  LOCATE  25,1: PRINT  SPACE* (79) ;: LOCATE 

25, l:PRINT"Press  "jCRS;"  to  run  program 
,  ESC  to  return  to  menu,  SPACE  to  do  des 
cripti  on . " ; 

580  LOCATE  3+A*2, 5: COLOR  31: PRINT  FS<STA 
RT+A);: COLOR  15 

590  A«=INKEY*; IF  A$<>CHR$(13)  AND  A*<>CH 
R*(27)  AND  A*<>CHR*(32)  THEN  590 
600  IF  A$=CHR*(27)  THEN  LOCATE  3+A*2,5:P 
RINT  F*(START+fl) ; :GOTa  400 
610  IF  AS<>CHR«(32)  THEN  670 
620  IF  DISKNAME*=""  THEN  LOCATE  25,1:PRI 
NT  SPACE* (79) ;: LOCATE  25, 1: LINE  INPUT; "E 
nter  name  of  disk  :  ";DISKNAriE$  :  GOTO  62 
0 
630  LOCATE  25,1: PRINT  SPACE* < 79) ; t LOCATE 

25, 1:Z=START+A: PRINT  "Description  :  "  ;  D$ 
(Z);: LOCATE  25, 15: LINE  INPUT  ;D$(Z):D*(2 
)=LEFT*("  "+DS(Z) ,62) sGOTO  350 
640  LOCATE  25,1: PRINT  SPACES ( 79) ;: BEEP; C 
OLOR  31:L0CATE  25, 1 : PRINT"Cannot  save  de 
script ions  to  disk.   ": COLOR  7: PR I NT "Run 

program  anyway?  (Y/K) : " ; : COLOR  7 
650  A$=INKEY*:IF  A$<>"y"  AND  A*<>"Y"  AND 

A$<>"n"  AND  A*<>"N"  THEN  650 
660  IF  AS="y"  OR  A*="Y"  THEN  RESUME  680 
ELSE  RESUME  350 

670  ON  ERROR  GOTO  640:G0SUB  1000 
680  ON  ERROR  GOTO  690; COLOR  7:CLS:RUN  DR 
IVE$+F$(BTART+A) 

690    LOCATE    25,1;PRINT    SPACES (79) : COLOR    2 
3:BEEP:PRINT"Cannot    run    ";F*(A);".        ";:C 
OLOR    7:  PR  INT  "Press    ";CFv5;"    to    continue.. 
■     ? 
178    COMPUTE!    April  19S4 


700  IF  INKEYS<  ;CHRS(13)  THEN  700 

710  RESUhE  350 

720  END 

1000  'Save  descriptions  to  disk 

1010  OPEN  DRIVE*+"DESCR.DIR"  FOR  OUTPUT 

AS  #1 

1020  PRINT#1,DISKNAMES;CHR$(13) : ENTRIES; 

CHR*(13); 

1030  FOR  1=0  TO  ENTRIES:PRINT#1,F£(I) ;CH 

R$(13)  ;DS  (I)  ;CHRS  (  13)  |!  :NEXT 

1040  CLOSE  #1:0N  ERROR  GOTO  0: RETURN 

1050  ' 

5000  'This  subroutine  reads  disk  directo 

ry  into  a  string  array 

5010  'Enter  with  F3PECS,  the  Tile  spec  -f 

or  the  FILES  command 

5O20  'Exits  with  array  FS,  and  NUMFILES, 

the  number  o-f  +iles 
5030  'uses  a  temporary  array,  ^TS,  which 

is  ERASEd  a-fter  use 
5040  ' 

5050  DEF  SEG=0: WIDTH  BC 
5060  HEAD=105i.i:  TA1L=1052:  BUFFER=1054 
5070  CLS: COLOR  23, 0, O: PRINT"Readi ng  disk 

directory" 
30S0  COLOR  0:0N  ERROR  GOTO  51U0 
5090  FILES  FSPEC$;ON  ERROR  GOTO  0:GOTO  5 
110 
5100  BEEP: COLOR  31 : CLS: PR I NT "Cannot  read 

directory": COLOR  7: ON  ERROR  GOTO  0:END 
51 lO  DIM  TT* (24) : LOCATE  3,1: COLOR  7: ROWS 
=0 

5120  -'Put  code  -for  End,  Enter  into  keybo 
ard  bu-f-Fer: 

5130  POKE  HEAD,  30:  POKE  TAIL,  34:  PO^'E  BUFF 
ERjOsPOKE  BUFFER+I,79:P0KE  BUFFER+2, 13: P 
OKE  BUFFER+3,2B 
5140  LINE  INPUT  TT*(ROWS) 

5150  IF  TT$(ROWS)<>""  THEN  ROWS=ROWS+l : G 
OTO  5130 

5160  IF  NOT  DIMMED  THEN  DIM  F$  (R0i>J5*4-l  > 
:DIMMED=1 
5170  R0W3=R0WS-1 
5180  FOR  I=0  TO  ROWS 
5190   FOR  J=0  TO  3 

5200     T$=MID*(TTS(I>  ,a*18-;-l  .  123 
5210     IF  T*;>"'-  THEN  F$  (ENTRIES)  =TS:  EN 
TRIES=ENTRIES+1 
5220   NEXT  J 
5230  NEXT  I 

5240  ERASE  TTS: ENTR1ES=ENTRIES-1 
5250  DEF  SE6: RETURN  © 


\ferbatim 

flexible  disks 

Call  Free  (800)  235-4137  for 

prices  and  information.  Dealer 
inquiries  inuited.  C.O.D.  and 
charge  cards  accepted. 

PACIFIC 
EXCHANGES 

1011  Foolh.ll  Blud 
San  LuisObispo.  CA 
9340 1    In  Cal.  call 
(800)  592-5935  or 
(805)  543-1037 


A  Beginner's  Guide 
To  Typing  In  Programs 


What  Is  A  Program? 

A  computer  cannot  perform  any  task  by  itself. 
Like  a  car  without  gas,  a  computer  has  potential, 
but  without  a  program,  it  isn't  going  anywhere. 
Most  of  the  programs  published  in  COMPUTE!  are 
written  in  a  computer  language  called  BASIC. 
BASIC  is  easy  to  learn  and  is  built  into  most  com- 
putejs  (on  some  computers,  you  have  to  purchase 
an  optional  BASIC  cartridge). 

BASIC  Programs 

Each  month,  COMPUTE!  publishes  programs  for 
many  machines.  To  start  out,  type  in  only  pro- 
grams written  for  your  machine,  e.g. ,  "TI  Version" 
if  you  have  a  TI-99/4.  Later,  when  you  gain  ex- 
perience with  your  computer's  BASIC,  you  can 
try  typing  in  and  converting  certain  programs 
from  one  computer  to  yours. 

Computers  can  be  picky.  Unlike  the  English 
language,  which  is  full  of  ambiguities,  BASIC 
usually  has  only  one  "right  way"  of  stating  some- 
thing. Every  letter,  character,  or  number  is  signif- 
icant. A  common  mistake  is  substituting  a  letter 
such  as  O  for  the  numeral  0,  a  lowercase  1  for  the 
numeral  1,  or  an  uppercase  B  for  the  numeral  8. 
Also,  you  must  enter  all  punctuation  such  as  col- 
ons and  commas  just  as  they  appear  in  the 
magazine.  Spacing  can  be  important.  To  be  safe, 
type  in  the  listings  exactly  as  they  appear. 

Braces  And  Special  Characters 

The  exception  to  this  typing  rule  is  when  you  see 
the  braces,  such  as    DOWN}.  Anything  within  a 
set  of  braces  is  a  special  character  or  characters 
that  cannot  easily  be  listed  in  a  printer.  When  you 
come  across  such  a  special  statement,  refer  to  the 
appropriate  key  for  your  computer.  For  example, 
if  you  have  an  Atari,  refer  to  the  "Atari"  section 
in  "How  To  Type  COMPUTEl's  Programs." 

About  DATA  Statements 

Some  programs  contain  a  section  or  sections  of 
DATA  statements.  These  lines  provide  informa- 
tion needed  by  the  program.  Some  DATA  state- 
ments contain  actual  programs  (called  machine 
language);  others  contain  graphics  codes.  These 
lines  are  especially  sensitive  to  errors. 

If  a  single  number  in  any  one  DATA  statement 
is  mistyped,  your  machine  could  "lock  up,"  or 
"crash."  The  keyboard,  break  key,  and  RESET  (or 
STOP)  keys  may  all  seem  "dead,"  and  the  screen 


may  go  blank.  Don't  panic  -  no  damage  is  done. 
To  regain  control,  you  have  to  turn  off  your  com- 
puter, then  turn  it  back  on.  This  will  erase  what- 
ever program  was  in  memory,  so  ahvays  SAVE  a 
copy  of  your  program  before  you  RUN  it.  If  your 
computer  crashes,  you  can  LOAD  the  program 
and  look  for  your  mistake. 

Sometimes  a  mistyped  DATA  statement  will 
cause  an  error  message  when  the  program  is  RUN. 
The  error  message  may  refer  to  the  program  line 
that  READS  the  data.  The  error  is  still  iu  the  DATA 
statements,  though. 

Get  To  Know  Your  Machine 

You  should  familiarize  yourself  with  your  com- 
puter before  attempting  to  type  in  a  program. 
Learn  the  statements  you  use  to  store  and  retrieve 
programs  from  tape  or  disk.  You'll  want  to  save  a 
copy  of  your  program,  so  that  you  won't  have  to 
tvpe  it  in  every  time  you  want  to  use  it.  Learn  to 
use  your  machine's  editing  functions.  How  do 
you  change  a  line  if  you  made  a  mistake?  You  can 
always  retype  the  line,  but  you  at  least  need  to 
know  how  to  backspace.  Do  you  know  how  to 
enter  inverse  video,  lowercase,  and  control  char- 
acters? It's  all  explained  in  your  computer's 
manuals, 

A  Quick  Review 

1.  Type  in  the  program  a  line  at  a  time,  in  order. 
Press  RETURN  or  ENTER  at  the  end  of  each  line. 
Use  backspace  or  the  back  arrow  to  correct 
mistakes. 

2.  Check  the  line  you've  typed  against  the  line  in 
the  magazine.  You  can  check  the  entire  program 
again  if  you  get  an  error  when  you  RUN  the 
program, 

3.  Make  sure  you've  entered  statements  in  braces 
as  the  appropriate  control  key  (see  "How  To 
Type  COMPUTEl's  Programs"  elsewhere  in  the 
magazine). 


We  regret  that  we  are  no  longer  able  to  respond  to 
individual  incjuiries  about  programs,  products,  or 
seivices  appearing  iit  COMPUTE!  due  to  increasing 
publication  activily.  On  those  infrequent  occasions 
when  a  published  program  contains  a  typo,  the  correc- 
tion will  appear  on  the  CAPUTE!  page,  usually  within 
eight  weeks.  If  yon  haw  specific  cjuestions  about  items 
or  programs  which  you've  seen  in  COMPUTE!,  please 
send  them  to  Readers'  Feedback,  P.O.  Box  5406, 
Greensboro,  NC2740S.  © 
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How  To  Type  COMPUTEi's  Programs 


Many  of  the  programs  which  are  listed  in  COMPUTE!  contain 
special  control  characters  (cursor  control,  color  keys,  inverse 
video,  etc.).  To  rnake  it  easy  to  tell  exactly  what  to  type  when 
entering  one  of  these  programs  into  your  computer,  we  have 
established  the  following  listing  conventions.  There  is  a 
separate  key  for  each  computer.  Refer  to  the  appropriate 
tables  when  you  come  across  an  unusual  symbol  in  a  program 
listing.  If  you  are  unsure  how  to  actually  enter  a  control 
character,  consult  your  computer's  manuals. 

Atari  400/800 

Characters  in  inverse  video  will  appear  like:  in  imu'ihim'i  iiiiii 
Enter  these  characters  with  the  Atari  logo  key,  (A) . 

Mian  you  ■••  Type  See 


{CLEAR} 

ESC 

SHIFT    < 

K 

Clear  Screen 

CUPJ 

ESC 

CTRL    - 

* 

Cursor  Up 

<I><MN> 

ESC 

CTRL    - 

* 

Cursor   Donn 

{LEFT> 

ESC 

CTRL    + 

«- 

Cursor    Left 

CRIQHT> 

ESC 

CTRL    * 

.» 

Cursor    Ri  ght 

{BftCK    SJ 

ESC 

DELETE 

* 

Backspace 

tDELETE> 

ESC 

CTRL    DELETE 

u 

Delete   character 

Cir«ERTJ 

ESC 

CTRL    INSERT 

a 

Insert    character 

(DEL    LIFE} 

ESC 

SHIFT    DELETE 

a 

Delete   line 

<INS   LINE} 

ESC 

SHIFT    INSERT 

E3 

Insert   line 

<TAB} 

ESC 

TAB 

y 

TAB  key 

iCLR   TAB) 

EBC 

CTRL    TAB 

a 

Clear    tab 

CSET    TAB} 

ESC 

SHIFT    TAB 

a 

Set    tab    stop 

<BEU.> 

ESC 

CTRL    2 

a 

Ring    buzzer 

CESC) 

ESC 

ESC 

«. 

Escape    key 

Graphics  characters,  such  as  CTRL-T,  the  ball  character*  will 
appear  as  the  "normal"  letter  enclosed  in  braces,  e.g.  (T). 

A  series  of  identical  control  characters,  such  as-10  spaces, 
three  cursor-lefts,  or  20  CTRL-R's,  will  appear  as  (10 
SPACES),  I3LEFT),  {20R),  etc.  If  the  character  in  braces  is 
in  inverse  video,  that  character  or  characters  should  be  en- 
tered with  the  Atari  logo  key.  For  example,  1  n  )  means  to 
enter  a  reverse-field  heart  with  CTRL-comma,  t  5ib  )  means  to 
enter  five  inverse-video  CTRL-U's. 

Commodore  PET/CBMA^C/64 

Generally,  any  PET/CBMA'IC/64  program  listings  will  contain 
words  within  braces  which  spell  out  any  special  characters: 
{  DOWN  J  would  mean  to  press  the  cursor  down  key.  1 5 
SPACES  1  would  mean  to  press  the  space  bar  five  times. 

To  indicate  that  a  key  should  be  shifted  (hold  down  the 
SHIFT  key  while  pressing  the  other  key),  the  key  would  be 
underlined  in  our  listings.  For  example,  S  would  mean  to 
type  the  5  key  while  holding  the  shift  key.  If  you  find  an 
underlined  key  enclosed  in  braces  (e.g.,  {10  N)),  you  should 
type  the  key  as  many  times  as  indicated  (in  our  example, 
you  vvould  enter  ten  shifted  N's).  Some  graphics  characters 
are  inaccessible  from  the  keyboard  on  CBM  Business  models 
(32N,  8032). 

For  the  VIC  and  64,  if  a  key  is  enclosed  in  special  brackets, 
fc  ^,  you  should  hold  down  the  Commodore  key  while  pressing 
the  key  inside  the  special  brackets.  (The  Commodore  key  is 
the  key  in  the  lower  left  corner  of  the  keyboard.)  Again,  if 
the  key  is  preceded  by  a  number,  you  should  press  the  key 
as  many  times  as  indicated. 

Rarely,  you'll  see  in  a  Commodore  64  program  a  solitary 
letter  of  the  alphabet  enclosed  in  braces.  These  characters 
can  be  entered  by  holding  down  the  CTRL  key  while  typing 
the  letter  in  the  braces.  For  example,  {A  1  would  indicate  that 
you  should  press  CTRL-A. 

About  the  qitole  mode:  you  know  that  you  can  move  the 
cursor  around  the  screen  with  the  CRSR  keys.  Sometimes  a 
programmer  will  want  to  move  the  cursor  under  program 
control.  That's  why  you  see  all  the  ILEFTl's,  (HOMEl's, 
and  {BLUl's  in  our  programs.  The  only  way  the  computer 
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can  tell  the  difference  between  direct  and  programmed  cursor 
control  is  the  quote  mode. 

Once  you  press  the  quote  (the  double  quote,  SHIFT-2), 
you  are  in  the  quote  mode.  If  you  type  something  and  then 
try  to  change  it  by  moving  the  cursor  left,  you'll  only  get  a 
bunch  of  reverse-video  lines.  These  are  the  symbols  for 
cursor  left.  The  only  editing  key  that  isn't  programmable  is 
the  DEL  key;  you  can  still  use  DEL  to  back  up  and  edit  the 
line.  Once  you  type  another  quote,  you  are  out  of  quote  mode. 

You  also  go  into  quote  mode  when  you  INSerT  spaces 
into  a  line.  In  any  case,  the  easiest  way  to  get  out  of  quote 
mode  is  to  just  press  RETURN.  You'll  then  be  out  of  quote 
mode  and  you  can  cursor  up  to  the  mistyped  line  and  fix  it. 

Use  the  following  tables  when  entering  special  cliaracters: 


VIC  And  64 

When  You 


Read: 

(CLRl 

{HOME} 

lUP) 

[down} 

{ LEFT ) 

(right] 

{RVSl 
I  OFF  J 

(blk) 
{wht} 

(RED) 
ICYN) 

(pur) 


Press: 


See: 


When  You 
Reod:        Press: 


See: 


SHIFT 

CIR'HOME 

CLR'HOME 

SHIFT 

4  CRSR  ^ 

4  CRSR  ^ 

SHIFT 

^CRSR-» 

^CRSR-* 

CTRL 

9 

CTRL 

0 

CTRL 

i        ' 

■ 


CTRL 


1!^ 


CTRL 

5 

(grn) 

CTRL            6 

{BLU} 

CTRL            7 

(YELJ 

CTRL          8 

IFI} 

fl 

IF2J 

n 

1F3) 

f3 

lF4} 

H 

tF5) 

1 

15 

(F6) 

r6 

{F7] 

f7 

tF8j 

m 

t 

< 

«- 

t 

SHIFT 

All  Commodore  Machines 

Clear  Screen    (CLR) 
Home  Cursor  (  HOME) 
Cursor  Up        (UP) 
Cursor  Down  {  DOWN) 
Cursor Righl  (RIGHT) 


Cursor  Left  (LEFT) 

Insert  Character     (INST) 
Delete  Character   (DEL) 
Jleverse  Field  On  (RVS) 
Reverse  Field  Off  {  OFF) 


Apple  11  /Apple  II  Plus 

Ail  programs  are  in  Applesoft  BASIC,  unless  otherwise 
stated.  Control  characters  are  printed  as  the  "normal"  char- 
acter enclosed  in  braces,  such  as  {  D!  forCTRL-D.  Hold 
down  CTRL  while  pressing  the  control  key.  You  will  not  see 
the  special  character  on  the  screen. 

Texas  Instruments  99/4 

The  only  special  characters  used  are  in  PRINT  statements  to 
indicate  where  two  or  more  spaces  should  be  left  between 
words.  For  example,  ENERGY  (10  SPACES)  MANAGE- 
MENT means  that  ten  spaces  should  be  left  between  the 
words  ENERGY  and  MANAGEMENT.  Do  not  type  in  the 
braces  or  the  words  10  SPACES.  Enter  all  programs  with  the 
ALPHA  LOCK  on  (in  the  down  position).  Release  the  ALPHA 
LOCK  to  enter  lowercase  text. 


CAPUTE! 

Modificotions  Or  Corrections  To  Previous  Articles 


Calorie  Cop  For  Atari  And  Tl 

In  the  Atari  version  of  this  activity  planning  pro- 
gram from  the  December  1983  issue  (p.  32),  the 
GOTO  470  in  lines  540  and  552  should  be  changed 
to  GOTO  475.  Also,  lines  250  and  420  can  be 
deleted. 

In  the  TI  version  (Program  3),  line  360  can  be 
deleted  and  the  following  lines  should  be  added 
or  changed: 

445    PRINT    s     : 

447  PRINT  "(OR  HIT  ENTER  FOR  MORE)" 

750  IP  MIN=0  THEN  870 

Atari  Quatrainment 

The  characters  which  appear  as  :  i  in  line  20020  of 
Program  1  (February  1984,  p.  78)  should  be  the 
vertical  line  character,  obtained  by  pressing  SHIFT 
and  the  =  key. 

The  Beginner's  Page:  Program  Forms 

Line  560  from  Program  1  of  this  February  column 
(p.  102)  should  read: 

560  DATA  GALLONS,3.785,LITERS 

VIC  3-D  Drawing  Master 

Users  of  this  program  (February  1984,  p.  146)  will 
encounter  a  syntax  error  in  line  1803  when  at- 
tempting to  load  a  picture  file  from  tape.  The  line 
should  read: 

1803    IPLEPT$(IN$,1)="T"THENIN=1:GOTO1805 

64  Sound  Tester 

There  were  typographical  errors  in  the  corrections 
to  this  program  (November  1983,  p.  187)  which 
appeared  in  the  February  "CAPUTE!"  page.  The 
modified  program  lines  should  have  read: 

310  POR  I=1T015STEP2!  POKEW,X:  POKEHF,SO(I 
,A{2))t  POKELF,SO(l+I,A(2)) 

311  0=0+l:  F0RN=1T0D(0) :  NEXT:  P0KEW,X-1: 
NEXT:  FORI=1TO10000:  NEXT 

Hidden  64  Memory 

If  you  use  the  techniques  outlined  in  this  article 
(January  1984,  p.  172)  to  access  the  RAM  under 
the  Kernal  ROM,  you  should  be  aware  that  at 
least  one  of  the  64's  Kernal  routines  writes  to  the 
RAM  beneath  it.  Raymond  Quiring  notes  that  the 
Kernal  routine  RESTOR  at  address  65418  (SFFBA) 
writes  to  the  RAM  from  64816-64846  (SFD30- 
$FD4E).  The  RESTOR  routine  is  called  when  the 
RESTORE  key  is  pressed,  or  when  a  BRK  instruc- 
tion is  encountered  in  machine  language. 


Making  Cents 

The  Februarv  "Readers'  Feedback"  suggestion  for 
a  program  line  which  formats  numbers  as  dollars 
and  cents  (p.  10)  produces  improper  values  in 
those  cases  where  the  number  is  negative  or  zero. 
David  Gamache  suggests  instead  the  following 
line,  which  works  for  both  positive  and  negative 
numbers  and  zero: 

V$=STR?(X+(.001*SGN{X))) !V$=LEPT$(V$,LEN( 
V?)-l) jIFX=.THENV$="0.00" 

Program  Line  Addresses  For  VIC  And  64 

The  instructions  given  in  January  "Readers'  Feed- 
back" (p.  10)  for  appending  this  program  to  an 
existing  BASIC  program  work  only  for  the  Com- 
modore 64.  For  the  unexpanded  VIC,  vou  should 
use  POKE  44,16  instead  of  POKE  44, 8 'in  step  4. 
The  proper  value  for  the  3K  expanded  VIC  is  POKE 
44,4,  and  with  8K  or  more  expansion  you  should 
use  POKE  44,18. 

VIC  Modem  Save  And  Download 

There  are  still  bugs  in  this  program  (November 
1983,  p.  215)  after  the  corrections  in  the  January 
"CAPUTE!"  page.  Load  your  version  of  the  ter- 
minal program  (Program  2  with  the  data  from 
Program  1  added).  Type  POKE  45,49:POKE  46,20 
and  RETURN,  then  make  the  following  changes 
and  additions,  suggested  by  Larry  Flohaug: 

130  PRINT" [CLR] t down} 1 -SAVE  TO  TAPE " i PRIN 
T"2-PRINTER":PRINT"3-TAPE  &  PRINTER" 

140  PRINT:PRINT"WHICH?" 

170  OPEN4,4:FORK=6656TOPEEK(0)*256+PEEK{1 
) :PRINT#4,CHR$(PEEK(K)AND127) ; iNEXT 

175  PRINT#4:CL0SE4 

200  GOT0225 

After  making  the  modifications,  type  POKE 
45,l:POKE  46,26  and  save  a  copy  of  the  revised 
program.  The  test  of  the  Program  1  data  in  the 
original  article  (p.  216)  will  insure  that  the  data 
has  not  been  affected  by  these  changes. 

Colorbot 

When  you  lose  your  last  man  in  the  VIC  or  64 
version  of  this  game  from  the  January  issue  (p.  84), 
the  screen  clears  immediately.  Cliff  Tener  suggests 
adding  the  following  line  to  either  version  to  create 
a  sufficient  delay  to  check  your  final  score: 

352  FOR  T  =  1  TO  2000:  NEXT 

Atari  XL  Compatibility  Problems 

Based  on  mail  we  have  received,  we  suspect  that 
the  "Polycopy"  program  from  the  November  1983 
issue  will  not  run  properly  on  any  of  the  new 
Atari  XL  computers.  The  following  programs  work 
on  the  1200XL,  but  apparently  not  on  the  600  or 
800XL:  "Chopperoids"  (December  1983),  "De- 
mons Of  Osiris"  (January  1984),  and  "Circus" 
(February  1984).  © 
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NEWS^PRODUCTS 


Color  Computer 
Cassette-Based 
Games 

Radio  Shack  has  produced  sev- 
eral cassette-based  computer 
games  for  the  TRS-80  Color  Com- 
puter with  Extended  BASIC  for 
children  seven  years  of  age  and 
older.  The  three  games  require 
joysticks  and  encourage  players 
to  work  together. 

Peanut  Butter  Panic!  is  a  two- 
person  game  in  which  players 
jump  for  stars  to  make  peanut 
butter  sandwiches.  By  working 
together,  players  are  able  to  catch 
the  most  valuable  stars. 

In  Taxi,  players  get  behind 
the  wheel  of  a  cab.  By  maneu- 
vering around  the  street  grids 
based  on  city  maps,  players  try 
to  deliver  as  many  passengers  as 
possible  before  time  runs  out. 
When  played  cooperatively,  the 
game  encourages  communica- 
tion and  division  of  labor. 

Star  Trap  is  a  maze  game  in 
which  players  attempt  to  trap 
stars  by  blocking  their  paths. 
Two  players  working  as  a  team 
are  more  effective  than  one 
player. 

Each  of  these  games  is  priced 
at $19.95. 

Another  game  now  available 
from  Radio  Shack  for  the  Color 
Computer  on  tape  is  ZAXXON. 
The  player  becomes  the  pilot  of 
a  fighter  spacecraft  on  a  mission 
to  meet  and  destroy  the  deadly 
ZAXXON  robot.  Points  are 
scored  by  destroying  a  variety  of 
threats  from  enemy  planes,  base 
missiles,  firing  gun  emplace- 
ments, and  radar  towers. 

The  game  sells  for  $34.95 
and  requires  a  joystick. 
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Tandy  Corporation/Radio  Shack 
1800  One  Tandy  Center 
Fort  Worth,  TX  76102 
(817)390-3300 


Games  For 
Apple  II,  Atari 

Kangaroo,  Inc.,  has  released  two 
new  games,  Jeepers  Creatures  and 
My  House  My  Home,  both  for  the 
Apple  II  and  Atari. 

Jeepers  Creatures  takes  chil- 
dren through  a  zoo  of  30  basic 
animals,  with  interchangeable 
heads,  torsos,  legs,  and  tails. 
More  than  20,000  different  com- 
binations are  possible  for  chil- 
dren to  create. 

My  House  My  Home  is  an 
electronic  playhouse.  A  moving 
conveyor  belt  with  furniture, 
pets,  and  people  can  be  con- 
trolled by  either  a  joystick  or  the 
keyboard.  The  user  can  furnish 
a  cutaway  view  of  a  house  in  a 
variety  of  different  ways . 

Jeepers  Creatures  and  My 
House  My  Home  are  priced  at 
$34.95  on  disk. 

Kangaroo,  Inc. 

322  South  Michigan  Avemte 

Suite  700 

Chicago,  IL  60604 

(312)  987-9050 


Atari  Tape 
Interfaces 


RC  Systems,  Inc.,  has  introduced 
two  models  of  tape  interfaces 
which  allow  a  standard  cassette 
recorder  to  be  used  for  loading 
and  saving  programs  with  any 
of  the  Atari  computers. 

The  models  are  the  AA-2 


and  AA-1,  the  seCond  of  which 
operates  with  the  Atari  400  and 
800  computers.  The  AA-1  has  all 
the  features  of  the  AA-2,  but 
incorporates  additional  circuitry 
to  duplicate  and  rejuvenate  pro- 
gram tapes  (a  second  recorder  is 
required  for  this). 

The  assembled  and  tested 
AA-2  cassette  interface  board  is 
priced  at  $27.95.  In  kit  form,  it  is 
available  for  $19.95.  The  AA-1  is 
priced  at  $39.95;  in  kit  form, 
$29.95. 

RC  Systems,  Inc. 
121  West  Winesnp  Road 
Bothell,  WA  98012 
(206)  771-6883 


Filing,  Mailing 
Systems  For  Tl 

TI  File,  TI  Mail,  and  TI  File  Junior 
are  three  packages  developed 
for  the  TI-99/4A  computer  system 
by  Kinetic  Designs. 

Tl  File  is  a  multipurpose 
filing  system  which  allows  the 
user  to  construct,  sort,  maintain, 
and  print  out  a  variety  of  files  for 
home  or  business. 

TI  File  requires  Extended 
BASIC,  32K  memory  expansion, 
and  cassette  deck.  Options  in- 
clude disk  drive  and  printer.  It  is 
available  on  tape  for  $14,95  and 
on  disk  for  $17.95.  A  $2  postage 
fee  should  be  added. 

TI  Mail  is  a  mailing  list  man- 
agement system  which  also  re- 
quires Extended  BASIC,  32K 
memory  expansion,  and  cassette 
deck.  An  optional  heading  al- 
lows the  user  to  keep  track  of 
expiration  dates,  scores,  or  any- 
thing else  related  to  those  listed. 
Tl  Mail  is  available  on  cassette 


for  $10,95  or  or^  disk  for  $13.95. 
A  postage  fee  of  $2  is  additional. 
Tl  File  Junior  is  similar  to  the 
TI  File,  but  requires  only  a  stand- 
ard 16K  TI-99/4A  and  a  cassette 
decl<.  It  is  available  on  cassette 
for  $9.95,  plus  a  $2  postage  fee. 

Kinetic  Designs 
P.O.  Box  1585 
Orange  Park,  FL  32067 
(904)  264-6777 


Desert  Game 
For  Apple 

Sands  of  Egypt,  a  desert  adventure 
game  from  Datasoft,  has  been 
introduced  for  the  Apple  II,  He, 
and  11+  computers. 

The  game  incorporates  ac- 
tion with  riddles  using  a  split 
screen  image.  It  follows  Lord 
Charles  Buckingham  III,  a  desert 
traveller,  as  the  player  attempts 
to  find  hidden  treasure  by 
answering  a  series  of  riddles 
and  by  dodging  dangers  and 
obstacles. 

The  game  is  priced  at  $29.95, 
and  is  also  available  for  the  Atari 
400,  800,  and  1200  computers. 

Datasoft,  Inc. 
9421  Winnetka  Avenue 
Chatsworth,  CA  91311 
(213)  701-5161 


Basketball 
Simulation  Game 

Electronic  Arts  has  introduced 
One-on-One,  a  basketball  simula- 
tion game  that  pits  Boston  Celtics 
star  Larry  Bird  against  Julius 
(Dr.  J)  Erving  of  the  Philadelphia 
76ers. 

It  is  available  on  disk  for  the 
Apple  II,  II  + ,  and  He,  and  will 
be  available  this  year  for  the  Atari 
and  Commodore  64  computers. 

Statistical  tables  reflecting 
the  players'  strengths  all  over 
the  court  have  been  built  into 
the  game.  The  two  players  also 
advised  the  game  creators  on 
their  individual  strategies  and 


maneuvers.  Among  the  features 
are  a  24-second-shot  clock,  a 
game  clock,  and  a  scoreboard 
that  shatters  when  a  slam  dunk 
is  made.  The  game  also  has  hot 
and  cold  shooting  functions, 
instant  replays,  and  visible  meas- 
ures of  player  fatigue. 

One-on-One  has  a  suggested 
retail  price  of  $40. 

Electronic  Arts 
2755  Campus  Drive 
San  Mateo,  CA  94403 
(415)571-7171 


Commodore  64 
Checkwrlting, 
Accounts  Package 

COMP-U-CHECK  is  a  check- 
writing  and  accounts  servicing 
package  designed  for  personal 
or  small  business  applications  by 
Hot  Data  Software  Development. 

The  package  requires  a 
Commodore  64  computer,  disk 
drive,  and  a  printer. 

COMP-U-CHECK  provides 
checkwriting,  check  account 
balancing,  credit  account  man- 
agement, letter  writing,  auto- 
ma  he  bill  paying,  and  form  letters. 
Also  included  are  tax  time  re- 
ports, constant  balance  and  totals 
paid  to  date,  new  year  accounts 
reset,  and  user  support  through 
a  direct-help  phone  number. 

The  package  is  available  on 
disk  for  $64.95. 

Hot  Data  Software  Development 
1021  Lincoln  Boulevard 
Santa  Monica,  CA  90403 
(213)  393-6405 


Popular  Games 
Released 

Atari,  Inc.,  has  released  12  of  its 
games  for  competing  computers 
and  videogame  consoles  in  a 
new  line  of  software  called 
ATARISOFT. 

The  initial  entries  in  the 
new  line  include  Centipede,  De- 
fender, Dig-Dug,  Donkey  Kong, 


HARMONY 

VIDEO  &  COMPUTERS 

TO  ORDER  CALL  TOLL  FREE 

800-221-8927  OR  800-441-1144 


2357  Coney  tsland  Ave. 
Brooklyn,  N.Y.  11223 

Open  Daily  9-6:30 

(212)  627-1  ODD 

Friday  9^2 

1    JT^ 

VIDEO 

h 

Sony  SLS410 

554,95 

GE  4024 

S49.95 

Sony  312400 

3E9.95 

Sony  Profeel  IOCT250 

799.95 

Sony  SL2000 

449.95 

Sony  Pndeei  KX1901 

499.95 

SL  aSOO  Wifeless 

539.95 

HH7110 

414,95 

Sony  SL2700  Ki-R 
NEW!SL520OHi-R 

Call 

JVC  HRD  225 

ei4.9S 

ST9.95 

JVCHRD  120 

444,95 

Sony  HVC2800 

889.05 

JVC  HR2650 

739,95 

HVC525O0  Autotocus  889.95 

JVCHR7100 

409.95 

Sony  HVC2400 

489.95 

JVC  GX70V 

804.95 

Sony  HVC2200 

409.95 

JVC  HH7650 

659.95 

Panasonic  PV1220 

384.50 

JVC  HRC3  Compao 

499,95 

Panasonic  1 720 

754.95 

JVC  GXN5 

604,95 

Panasonic  PV1320 

424.95 

JVC  6Z53  Compacl 

569,95 

Panasonic  PV1520 

554.95 

RCA  VJP900  Recase 

7B935 

Panasonic  PV650O 

eC4.95 

RCA  VJT700 

749.95 

NEW!  PV6600 

859,95 

RCA  VJT27S 

379,95 

P\/54(K1  PortaWe 

579.50 

RCA  VJT500 

594.95 

Panasonic  5500 

729.95 

RCA  VJP170 

6S9.9S 

NEW!  Aulofocus557  559.95 

RCA  012  Camera 

464,95 

Panasonic  PK503 

524.95 

RCA  017  Camera 

769,95 

Panasonic  PK957 

709.95 

RCA  030 

1179,95 

Quasar  5435  513 

589.95 

Hitachi  VKC340Q 

1275.M 

Quasar  VK747 

699.95 

Hitachi  VTiaA 

564.95 

Quasar  5435  S40 

S44.95 

HitaiSii  VT19A 

729,95 

Quasar  5031 

384.95 

Hitachi  VT7P 

844,95 

Quasar  5335 

609.95 

nsher515 

359,95 

Quasar  5235 

584.95 

NEW!  Sanyo  4500 

299.95 

Quasar  5635 

S29.95 

Sanyo  7300 

709,95 

Quasar  VK727 

659.95 

Sanyo  4300 

364.95 

GE4016 

774,50 

Sanyo  6300 

379.95 

GE4002 

369,95 

Sanyo  6800 

449.95 

GE  4020  Pon 

614,95 

Zennh  1810 

839.95 

GE4012 

599.95 

Zenith  9775 

549,95 

GE4022 

ei9.95 

Write  for  Free  Catalog 


VIDEO  TAPE— BY  CASE  ONLY 

VMS      VHS       HIGH    BETA    BETA    BETA 
71 20     T160  GRADE     L5O0     L750     L830 


TDK 

FUJI 

JVC 

MAXELL 

SCOTCH 

SONY 

RCA 

PANASONIC  6.46 

MEMOREX     6,10      9.99 


6,65  11.50 

6.75  11.50 

6,30  9,60 

6.50  9,75 

6.50  9.99 

6,35  — 

6.90  9.85 


9.35  5.85  6.90 

9.20  6.75  7.05 

8.65  —  — 

8,10  —  6.90 

1,30  6.511  6.90 


8,99 
8,10 

8,99 
8.75 

6.35      5.50      6.30      7.80 

9,99 

9,50 

9.00      6.10      6.05      845 


WE  CARRY  A  FULL  LINE  OF  SONY  TV  &  PROFEEL 


COMPUTERS 

APPLE  2E 
with  Disi<  Drive 

Monitor  &  Column 
Card 

*1 139.95 

Okidata  92  374.95 

C.  ITOH  Star  writer        949.95 

c.  rroHPiDwiiereaio  30995 


IBI\Apc 
STARTER 
SYSTEIVI 

«1 849.95 

Additional  DisK  Drives  169.95 

Eagle  p.c.  2249,95 

Franklin  769,95 

Kaypo  II  1299.95 
Hay«  300  Snwmodam    189.95 

Hayes  Ktcnxnodeni  II  E  199.95 

AmdeK  Montor  224.95 

Taxan  Monitar  269.95 

Banana  Monitor  89,95 

Brother  HR1S  389.95 

04«data  82A  269.95 


1729.95 
229.95 
319.95 
G59.9S 
494,95 
469.95 
639.9S 
169,95 


COMMODORE 


VIC  20 
Commodore  64 
Disk  Drive 

1 525  Pnnler 

1 526  Pnnler 
VIC  Modem 
1650  Modem 
16K  Expander 
CPM  Card 
1701  Monitor 
1530  Data  Sette 


79,95 
189.95 
189.95 
174,95 
229.95 

59.95 
109.95 

74.60 

40.95 
194.95 

49.95 


NEC  3560 
Gemini  ID 
Gemini  15 
Epson  FXlOO 
Epson  FX80 
Otidala  83A 
Okidala  93 
Banana  Printer 

ATARI 

Atanl400XL 

Atari  1200  Rebate 

Atari  600XL 

Atari  800  Rebate 

1030  Modem 

830  Modem 

101D  Program  Reccrder  74.50 

1020  Primer  199.95 


CALL 
199.95 
139,95 
'239.95 
I  CALL 
129,95 


1025  Primer 

264,95 

1027  Printer 

254.95 

1050  Drive 

299.95 

Indus  Drive 

399.95 

For  Info  Dial  |212)  637-1000  No  dealers  on  advertised  spe- 
cials, please!  To  order  simply  dial  toll  (ree  BCO'221-8927  or 
800-44M144  wilh  your  MasterCard  or  VISA  and  your  Order 
wid  arrive  via  UPS  or  send  certified  check  or  money  order  only 
to:  HARMONY  VIDEO  AND  ELECTRONICS,  2357  Coney  Is- 
land Ave,.  BTooMyp.  NY-  11223.  and  add  approximate  ship- 
ping, postage  and  insurance  charges,  Customer  Service  (212) 
627-8688  Mon-Fri.  9-5.  Credit  cards  lor  phone  orders  only.  All 
prices  and  avaiiatiilitysubiect  tochange  without  notice.  Dealer 
inquiries  invited!!  MC,  VtSA.  Prices  valid  thru  March  3. 
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Pac-Man,  Robotron,  Stargate,  Pic- 
nic Paranoia,  Protector,  Shamus, 
Super  Storm,  and  Calaxian. 

The  first  seven  games  will 
run  on  the  Apple  II  and  He,  IBM 
PC,  Commodore  64,  VIC-20, 
and  Texas  Instruments  99/4A 
computers.  The  remaining 
games,  except  Galaxian,  will  op- 
erate on  the  Texas  Instruments 
machine.  Galaxian,  Centipede, 
and  Defender  will  run  on  Col- 
ecoVision,  whUe  Centipede,  De- 
fender, and  Pac-Man  will  operate 
on  Intellivision. 

The  computer  games  carry 
suggested  retail  prices  of  $34,95 
for  disks  and  $44.95  for  car- 
tridges. Suggested  retail  for  the 
ColecoVision  and  Intellivision 
versions  is  $40.95. 

Atari  Incorporated 
1265  Borregas  Avenue 
P.O.  Box 427 
Sunnyvale,  CA  94086 
(408)  743-4810 


War  Strategy 
Games  For  Apple, 
Atari,  64 

Strategic  Simulations  Inc.  has 
produced  several  war  strategy 
games  for  the  Apple,  Atari,  and 
Commodore  64  computers. 

Carrier  Force  is  a  simulation 
of  the  four  major  aircraft  carrier 
battles  fought  in  the  Pacific 
during  World  War  II — Coral  Sea, 
Midway,  Eastern  Solomons,  and 
Santa  Cruz.  Every  major  warship 
and  plane  is  accounted  for  and 
rated  in  the  game.  Weather, 
time  of  day,  visibility,  inaccurate 
sightings,  and  other  aspects  of 
actual  naval  warfare  conditions 
are  recreated. 

The  game  comes  with  two 
maps,  rule  book,  and  48K  disk 
for  the  Apple  II  with  Applesoft 
ROM,  II  +  ,  He,  and  HI.  It  is  also 
available  on  40K  disk  for  the 
Atari  400/800/1200.  The  price  is 
$59.95. 

Battle  for  Normandy  is  a 
simulation  of  the  D-Day  invasion 
and  the  24  days  that  followed. 
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Now  available  for  the  Commo- 
dore 64  computer  in  a  64K  disk 
and  a  cassette  format,  the  game 
includes  all  historical  details. 
The  player  may  be  the  Supreme 
Allied  Commander  or  com- 
mander of  the  German  defenses. 
A  soUtaire  option  is  available, 
with  the  computer  directing  the 
German  defenses. 

The  game  comes  with  two 
player-aid  cards,  maps  and  rule 
book.  Versions  are  also  available 
for  Atari,  TRS-80  models  I  and 
HI,  Apple,  and  IBM  PC  com- 
puters. Battle  for  Normandy  is 
priced  at  $39.95. 

Tigers  in  the  Snow  is  a  recre- 
ation of  the  Worid  War  H  Battle 
of  the  Bulge,  Germany's  last 
major  counteroffensive.  The 
game  is  now  available  for  the 
Commodore  64  computer. 

In  the  simulation,  the  Ger- 
mans attempt  to  destroy  the 
Allies'  stronghold  while  the  out- 
numbered Allies  try  to  hold  until 
their  reinforcements  arrive.  The 
forces  are  division/regiment 
scale.  Both  sides  command  in- 
fantry, artillery,  and  air  power. 

The  price  for  the  game  is 
$39.95  on  64K  disk  for  the  Com- 
modore 64.  It  is  also  available  for 
the  Apple,  Atari,  and  TRS-80 
computers. 

Strategic  Simulations  Inc. 
883  Stierlin  Road,  Builditig  A-200 
Mountain  View,  CA  94043 
(415)  964-1353 


Color  Graphics 
Packages  For  64 

Sophisticated  Software  of  America 
has  released  Grafix- Artist,  a  high- 
resoIuHon  color-graphics  pack- 
age for  the  Commodore  64,  and 
Grafix-Printer,  a  high-resolution 
graphics  printer-dump  for  use 
with  printers/interfaces  which 
emulate  the  Commodore  1525E 
printer. 

Grafix-Artist  was  created  to 
introduce  children  and  adults  to 
computer  graphics  and  to  pro- 


gramming by  allowing  them  to 
use  either  a  specially  designed 
language  or  a  joystick  to  control 
the  onscreen  graphics  capabil- 
ities. The  product  can  be  used  to 
create  detailed  screens  which 
can  then  be  included  with  other 
programs  written  in  either 
BASIC  or  machine  language. 
Design  layouts,  storyboarding, 
and  ad  displays  are  among  the 
uses  of  Grafix-Artist. 

Available  on  disk,  Grafix- 
Artist  has  a  price  of  $39.95.  Grafix- 
Printer  is  available  for  $29.95. 

Another  Sophisticated  Soft- 
ware product.  Lesson  Designer, 
which  allows  free-form  lesson 
design,  will  be  available  this 
spring. 

Sophisticated  Software  of  America 
198  Ross  Road 
King  of  Prussia,  PA  19406 
(215)  265-2277 


Educational 
Games  On  Disk 

Unicorn  Software  has  produced 
four  educational  games  available 
on  disk  for  the  Atari,  Commo- 
dore 64,  IBM  PC,  and  Apple 
computers. 

Ten  Little  Robots  is  composed 
of  five  learning  games  that  intro- 
duce children,  from  ages  two  to 
seven,  to  the  computer.  They 
include  Little  Robot  Story,  an 
interactive  nursery  tale  that  pre- 
sents the  concept  of  subtraction 
and  aids  in  reading  preparation; 
Robot  Letter  Match,  which 
teaches  upper-  and  lowercase 
letters;  Count  The  Robots;  Robot 
Addition;  and  Robot  Sketch. 

Ships  Ahoy  is  a  series  of  four 
games  for  children  from  5 
through  13  years  of  age.  These 
four  games  include  Ships  Ahoy 
and  Mine  Sweeper,  two  math 
skills  programs;  Treasure  Hunt, 
a  maze  game  included  as  a  re- 
ward; and  Sailing  Sketch,  a 
screen  painting  program. 

Race  Car  'Rithmetic,  for  those 
five  years  old  to  adult,  is  a  math 
game  designed  for  the  entire 


family  to  play  together.  An  action 
race  game  is  included  as  a  reward. 

Funbunch  is  a  language  arts 
program  available  on  three 
levels — Elementary  (grades  1-6), 
Intermediate  {junior  high  school), 
and  College  Prep  (high  school  to 
adult).  Each  level  includes  over 
2000  words  and  phrases  with 
which  to  work. 

The  four  games  seU  for  $39.95 
each. 

Unicorn  Software 
Liberace  Plaza,  Suite  8 
1775  East  Tropicana  Avenue 
LasVegas.NV  89109 
(702)  798-2727 


Word  Processing 
Program 

HontcWord,  a  word  processing 
program  produced  by  Sierra 
On-Line,  has  been  introduced 
on  disk  for  the  Apple,  Commo- 
dore 64,  and  Atari  computers. 


The  program  uses  icons,  or 
symbols,  as  a  guide  to  the  writer. 
There  are  six  major  options  with 
appropriate  icons  that  are  shown 
on  the  screen — filing  (a  file 
cabinet),  editing  (a  page  of  print), 
printing  (a  printer),  format  de- 
sign (an  unorganized  page  with 
an  arrow  pointing  to  an  or- 
ganized page),  customizing  (a 
question  mark),  and  disk  utilities 
(a  floppy  disk).  Within  each  of 
these  categories  there  are  sub- 
categories, also  with  icons. 

Another  feature  of  the  pro- 
gram is  the  ability  to  divide  the 
screen  into  three  sections.  The 
upper  and  largest  portion  reveals 
the  working  text,  while  the  lower 
right  side  provides  a  replica  of 
the  entire  page  as  it  will  be 
printed.  To  the  left  of  this  insert 
is  a  chart  which  keeps  the  user 
appraised  of  available  memory 
and  disk  space. 

Other  standard  features 
include  optional  joystick  control, 
an  outline  format,  boldface  and 


underlining,  text  block  move- 
ment, file  merging,  headers  and 
footers,  and  other  functions. 

HonieWord  is  priced  at 
$49.95. 

Sierra  On-Line,  Inc. 
36575  Miidge  Ranch  Road 
Coarsegold,  CA  93614 
(209)  683-6858 


New  Product  releases  are  selected  from  sub- 
missions for  reasons  of  timeliness,  available 
space,  and  general  interest  to  our  readers.  We 
regret  that  we  are  unable  to  select  all  new 
product  submissions  for  publication.  Readers 
should  be  aware  that  xve  present  here  some 
edited  version  of  material  submitted  by  ven- 
dors and  are  unable  to  vouch  for  its  accuracy 
at  time  of  publication. 


COMPUTE!  welcomes  notices  of  up- 
coming events  and  requests  that  the 
sponsors  send  a  short  description,  their 
nanie  and  phone  number,  and  an  address 
to  which  interested  readers  may  write  for 
further  information.  Please  send  notices 
at  least  three  months  before  thedatcofthe 
event,  to:  Calendar,  P.O.  Box  5406, 
Greensboro.  NC  27403.  Q 


'^'- 


CP 


The  Computer  Case  Company 
provides   top   quality   cases   to 
satisfy  virtually  every  need  of  the 
microcomputer    owner.    Choose 
the  original  Comp-Case  for  com- 
pact, light  local  tra.nsportation  or 
the  new  Trav-L-Case,  which  pro- 
vides the  ultimate  in  protection,  for 
long   distance   transportation   at   a 
price  you  can  afford  and  in  a  size 
which  is  easy  to  handle.  Over  100 
_,, configurations  to  choose  from. 

CaIl  TOiJAy  1-800-848-7548 

565Ci  India]||Mo]yriid  Court     \ 
Columbus, j'IjH  43213  >' 


COMP-CASE 


THAV-L-CASE 


[MEC  PRINTERS 

NEC2050 S99B,00 

NEC  3550  SI 699,00 

PERCOM/TANOON 
□  RIVES 

S'.j"  320K  Floppy S229.00 

5  Meg  Hard  w/ControIlat.  - .  SI  399.00 
10MegKardw/Contfollef...S1G99.O0 
15  Meg  Hardw/Contrall«r...S209S.OO 
20Me9Hardw/Contrallar...S2399.0O 
AMDEK 

31 OA  Amber  Monjtor SI 69 .00 

DXy  100  Plotter SS99.00 

Color  II S399.00 

AST  RESEARCH 

Si«  Pak  PluS-.-trom S279.00 

Com4>o  Plus  H...(rom $279.00 

Mega  Plus.. from S309.00 

I'O  Plus. -from ...5139.00 

OUAORAIVI 

Quadlink 5499,00 

Quadboa«d. ..as  low  as  S2B9.00 

Ouad  512  Plus... as  low  as... 5 249. 00 

Ouadcolor.-.as  low  as S 21 9.00 

Chronograph 589. GO 

Parallel  Interface  Board  .....589.00 

6dK  RAM  Chips  Kit 559.00 

MICROPRO 

WordStar/MailMerge 5349.00 

InloSlar S299.00 

SpellSlar SI  59.00 

CalcStar S99.O0 

MICROSTUF 

Crosstalk S 1 05.00 

IVIICROSOFT 

Mulliplan 5159  00 

A8HTON  TATE 

dBASE  II S389.00 

Friday! S I  BS.OO 

lUS 

EasyWritet  II S249.00 

EasySpeller S119.00 

EasyFiIer - .  .5229.00 

CQiyTlNEtWTAL  BOFTWABE 
I5l  Class  Mail^Fotm  Letter... 579.00 

The  Home  Acenl.  Plus SBB.OO 

PP 


VIS 

ICQRP 

IBMAPPLE 

V>siCalc 

159.00 

VisiCalc  4 

159.00 

VisiCalc-Advanced 

269.0O 

VisiWord/Spell 

249.00 

Visitrend/Plol 

199-00 

199-00 

Vis.Liilk 

169.00 

VISiFile 

199.00 

169.00 

VistSctiedule 

1B9.00 

199.00 

viside* 

159.00 

VisiPloi 

135.00 

VisiTerm 

75.00 

Desktop  Plan 

199.00 

169.00 

Bus.  Forecast  Model 

75. OO 

75. OO 

Stretch  Calc 

75.00 

75. OO 

VisiTutor  Calc 

59.00 

59.00 

VislTutor-Advanced 

75.00 

75.00 

VisiTutor  Word 

59.00 

59.00 

Vision  Calc 

249,00 

Vision  Graph 

129.00 

Vision  Mouse 

159.00 

Vision  Host 

p»B 

319.00 

APPLE 

IBM 

Write: 

79.00 

89.00 

Graph: 

79.00 

89.00 

Reoorl 

yg.oo 

79. OO 

File; 

79.00 

89.00 

Solutions':  as  low  as 

16.00 

18.00 

AXIOM 

AT  too  Atart  Inteilace 523900 

CO- too  CBM  64/VIC  20      .  .523900 

GP-100  Parallel  Interlace.  -51  99-00 

BMC 

401  Latter  Quality 5589.00 

BXBO  Dot  Matrix 526900 

OENTRONICB 

122  Parallel S399.00 

7391  Parallel S299.O0 

T39-3  Serial S349.00 

C.ITOH 

Gorilla  Banana S209.00 

Prowriter  BS 1  OP  S3T9.O0 

Prowriler  1550P S6T9.00 

A10(I8  cpsi 569.00 

F10-40 5999.00 

Ft  0-55 S1499.00 

COMREX 

ComWrilerllLet1erQuali!y...S499-00 

DIABLO 

620  Letter  Quality 5949,00 

630  Letter  Quality SI  749.00 

OAISVWRITER 

2000 S999.00 

Tractor  Feed S 1 09.00 

EPSON 
MX-80FT.  MX-100.  RX-SO.  RX-80FT, 

FX-aO.  FX-1  00 CALL 

lOS 

Prism  60. ..  For  Configurations. ..  CALL 

Prism32.-.ForContiguratrDns..  .CALL 

MANNESMAN  TALLY 

160L S5B9.00 

1  SOL t799.00 

Spirit  BO. S309 .00 


'Call  On  Titles 
LOTUS 

1-2-3 S319.00 

pnOF^ESSIONALSapTWARE 

PC  Plu5,'The  Boss S349.00 

SYNAPSE 

File  Manager S89.00 

NTERb 

NEC 

201  0/2030 5899.00 


8023  Dol  Matrii., S379.00 

802S  Dol  Matrix S669.00 

351  OSerial/LetterOuality...  51 449-00 
3530  Parallel/LenerOualiTy  - , ,  S1499-00 
77 10/7730 Serial/Parallel-- -51 949.00 

OKIOATA 

82.83-84-92-93.2350.2410  ...CALL 

SMITH  CORONA 

TP-2 5399-00 

Tractor  Feed S1 1  9-00 

SILVER  REED 

SOO  Letter  Ouality  5469,00 

S50  Letter  Quality  $699.00 

STAR 

Gemini  10X 5299-00 

Gemini  P15X ..,..--5399-00 

Delta  1  0 S5S9-00 

SerialBoard 575, 00 

TOSHIBA CALL 

TRANSTAR CAUL 


PRINTER  CABLES 

Availat>le  for  Atari.  Commodore.  IBM. 
Apple.  Epson-  Kaypro.  Televideo.  Frank- 
lin, Eagle.  Sanyo.  Osborne.  NEC. 
Zenittl  and  inany  others.  We  supply  all 
your  computer  needs! 


PAPER  SUPPLIES 

lOOOshts.  6'.7k1 1  Tractor  Papef... 19.99 
1 000  shts.1 4Vix1 1  TractorPaper..S24.99 
1  or  2"  Address  Labels S9.99 


MBC-550  RC  ...CALL 

MBC-555  PC  ...CALL 

MBC  1100 51499,00 

FDD  3200-320K  Drive  $389.00 

MBC  1150 $1899.00 

MBC  1200 SI  849. 00 

FDD6400-640K  Drive S469.00 

MBC  1250 52099.00 

PR  5S00  Printer 5599.00. 


^ SANYO 


CXWnPUTER 


We  stock  a  full  line  of 

EAQLE 

COMPUTERS 

CALL  FOR  PRICING 


TERMINALS 

914 S569 .00 

924 S6B9.O0 

925 S739.O0 

950 S929.00 

970 51039. 00 

COMPUTERS 

Teleport  Portable  CALL 

800  A S 1 099 .00 

802 S2699 .00 

803 S 1 949 .  00 

a02H ...S4695.00 

B06/20 S4999.00 

616/40 , S9199.00 

1  602 S3399.00 

5603 CALL 

IViaiMITORS 

AMOEK 

300  G reon SI  49. 00 

300  Amber SI  59. 00 

310  Amber 5169.00 

Colof  1   5279,00 

Colon  Plus 5299.00 

Color  3  5399.00 

Color  2  Plus .5419.00 

Color3 5349.00 

Color4 5899.00 

BMC 

12'  Green S79-99 

12  ■  Green  HI-RES S119-99 

91  91  ■13'  Color S249-99 

QQRILLA 

12"  Green  S68-99 

12"Ambar S95-99 

NEC 

JB  1260  Green SI 09.99 

JB  1201  Green S149-99 

JB  1205  Amber SI  59-99 

JC  121  5  Color 5299-99 

■JC  1216  RGB 5429.99 

PRINCETON  GRAPHICS 

HX-12  RGB 551 9. OO 

SAKATA 
too ,.,,.  .5269.00 

TAXAN 

12"GrBen 5119. 00 

12"  Amber 5129.00 

Taxan  1  HGB 5279.00 

Taxan  210 5299.00 

USI 

Pi  1.  9"  Green S99.99 

Pi  2.  12"  Green S1  19.99 

Pi  3,  12  ■  Amber 5149,99 

Pi  4.  9-  Amber SI  39.99 

1 400  Colot S269.99 

ZENITH 

2VM  122  Amber SI 09.00 

ZVM  123  Green  S89.99 

ZVM  13S  Color/RGB 5469,99 


ftTel^ideo 


MOOEMS 

ANCHOR 

Mark  I  IRS-2321 579-00 

Mark  II  |Atari| 579.00 

Mark  III  |TI'99| $109-IX) 

Mark  IV  (CBM/PETI SI  25.00 

Mark  V  (Osborne) $95.IX} 

Mark  VI  (IBM-PCI SI  69.00 

Mark  VI I  (Auto  Ans/Auio  Dial) ...  S1 1 9.00 

Mark  XII  (1200  Baud] S299.00 

TRS-80  Color  Computer S99.(X) 

9  Volt  Power  Suppty 59.00 

HAYES 

Smarlmodem  300  S219.00 

Smartmodom  1200 S509.00 

Smartmodem  1200B  5459.00 

Micro  modem  II  $265.00 

Micromodem  II  Plus S299.00 

Micromodem  HE 5269.00 

Micromodem  100 S29g.00 

Smart  Com  II 589.00 

Chronograph SI  99.0O 

NOVATION 

J-Cat S99.99 

SmartCal  103 5179.00 

SmartCal  103/212 S399.00 

AutoCat 5219.00 

212  AutoCal SS49.0O 

Apple  Cat  11 S249.00 

21 2  Apple  Cat 5569,00 

Apple  Cat  21  2  Upgrade S309.00 

Cat 5139.99 

D-C  at 5 1 49 ,00 

PC-Cat S339.00 

ZENITH 

ZT-1  5309-00 

ZT- 1 0 S3  39.00 

ZT-11 5369.00 


APPLE  INTERFACE 
CARDS  &  BUFFERS 

Choose  from  PKASO.  Orange  Micro. 
MPC.  MicroMax.  Tymac.  Quadram  A 
Practical  Peripherals CALL 


800-6t8-55f1 


In  NV  call  (70?}SB8  5654.  OepI     040B 
Order  Slalus  Number:  580-5654 
'  P.O.  Box  6689.  Slalelme.  NV  89449 
>)    NQrisK.  nodeposilonC.O  O  orders.  Prepa 


XANADA 

800-268-'ir559 

In  Toronto  call  |41  619380666.  Dvpt     0406 

Older  Status  Numb«r:  8380666 

aSOS  Dunwin  Drive.  Unit  1  B 

Mississauga.  Ontario.  Canada  L5L1  T1 

rsrecejvetreeshjppmg  wiiKin  theUPSConrmenlaJUniredSJ; 


800«235»8950 

In  PA  call  17171327-9575.  Depi  040G 

Ordar  Status  Number:  327-9^76 

Customef  Service  Number:  327-1450 

477  E.  Third  St..  Williamsport.  PA  17701 


order's.  Add3''i(miii«mum  S5.00I  shtppmg  and  handlmgonaMC-O.D.  and  credit  card  orders.  Larger  shipments  may  require  add  it  ion  a  I  charges.  NVand  PA  residents  add 


salcstax  Allttemssubiccltoa 
catalog 


change  We$ioch  r 


f  sand  third  parly  software  lor 


irket.Calliodayfor 


\^0/«r  UTEK  /m^'^IL  O^O 


APPLE/FRANKLIN 
□  ISK  DRIVES 

rvncnO'Sci 

A2 $219.00 

A40 S299.00 

A70 »31  9.00 

C2  Controller S79.00 

C47  Controller  SB9.00 

RAIMA 

Elite  1  S279.00 

Elite  2 S3B9.00 

Elites S569.00 


APPLE  IIb  starter  PACK 

64K  Apple  lie.  Disk  Drive  &  Controller. 
SOColumn  Card.  Monitor  II  A  DO  S3. 3 
CatVIPLETE — ........  mi  1  98. oo 


p  FRAMkUN 


ACE  1  000  Color  Computer  ....  CALL 

ACE  Family  Pack  System CALL 

ACE  PRO  PLUS  Syatom CALL 

ACE  1  200Of<ice  Mgmt.  System . . . CALL 
■NOT  HE  EXPENSIVE' 


^K  commodore 


CBM  BOS3...£5BS 

CBM  4032 SS99.00 

CBM  8096 Sa69.00 

CBM  9OO0 S999.00 

ei28'30 S7B9.00 

CBM  64K  Memory  Board  ...S2S9.00 

B032  to  9000  Upgrade S269.00 

2031  LP  Disk  Drive S299.00 

8050  Disk  Drive S949.00 

8250  Disk  Drive S1199.00 

4023  Printer S379.00 

8023Printer 4569 .00 

&400  Printer S1399.00 

Z-RAM S499.00 

Silicon  Otiice S699.00 

TheManager S199.00 

Soft  ROM SI  25.00 

VisiCalc S159.00 

PROFESSIONAL 
SOFTWARE 

Word  Pro  2  Plus S  159.00 

Word  Pro  3  Plus SI  89.00 

Word  Pra4  Plus/5  Plus.. .each... S279.00 

IrloPro S179.00 

Administrator S399.00 

Power S79.00 


5X-6a 
PORTABLE 

"BBS"" 


VIC  so CALL 

CBM  64 S1S9 

MSD  set  Disk  Drive  IC-64) . . .  S349.00 

C1S41   Disk  Drive S249.D0 

C1S30  Datasette S69.00 

C1  520  Color  Pri  nter/Plotter ...  S 1 69. OO 
M-801  Dot  Matrix  Printer  ...S219.00 

C1526  Dot  MBtril/Serial S279.00 

C1702  Color  Monitor S249.00 

C1311  Joystick S4.99 

C1312  Paddles S1 1.99 

CI 600  VIC  Modem SS9.00 

CI 650  Auto  Modem S89.00 

Log D  64 S49.00 

Pilot  64 S39.00 

Simon's  Basic SI 9. 00 

Word  Pro  64  Plus S59.00 

Parallel  Printer  Interlace 549.00 

Catc  Resuil  64 S 1  29.00 

Codev«ri(er  64 S75.00 

Quick  Brown  Fox S49.00 

Word  Pro  64  Plus 559.00 


41  CX 

41  CV 
41  C 


We  stock  a  lull  inventory  of  software  for  Commodore,  such  as: 
Artworx.  Broderbund.  Commercial  Data,  Creative  Software. 
Epyx.  HES.  MicroSpec.  Nulekop.  Romox.  Sirius,  Synapse, 
Thorn  EMI.  Tronix.  UMI,  Victory,  Spinnaker,  Rainbow  STImeworks! 
CALL  FOR  DETAILS! 


HANDHELD 

COMPUTERS 


..SS49.99 
..S1  39.99 
..S144.99 

HP  IOC  S51.99 

HP11C  S69.99 

HP12C  588.99 

HP15C  S88.99 

HP16C  S88.B9 

HP75C S749.B9 

HPIL  Module S98.99 

HPI L  Cass,  or  Printer S3S9.99 

Card  Reader SI 43.99 

Extended  Function  Module  . .  .S63.99 
Time  Module S63.99 

NEC 

PC -8201  Personal  Computer... S599.0O 
PC-8221  ATharmal  Printer . .  .S1 49.00 
PC-8281  A  Data  Recorder  .... S99.00 
PC'a201'06  8KRAMCnips.,.SIOS.OO 
PC.8206A  32  K  RAM  Cartridge..  .5329.00 


PC-1500A.. 
PC-ISSOA. 


.$165.99 
..SQS.99 


CE-125  Printer/Cassette.. -.51 28. 99 
Ce-1  SOCotor  Prinlar/Cassen8,..S1 71 .99 

Ce-15SSK  RAM 593.99 

CE  161   16K  RAM SI 34.98 

C6  500  ROM  Library 529.99 

TIM  EX/SI  NCLAIP 

Timex/Sinclair  1000 524.99 

Timex/Sinclair  2086 CALL 

16K  Memory 525.00 

2040  Printer $99.99 

VuCalc 517.99 

Mind  ware  Printer 599.99 


A 

ATARI 


HOME 
COMPUTERS 


600XI-. 

aooxL. 


..S1I 


1010  Recorder $74.00 

1020  Color  Printer 5249.00 

1025  Dot  Matrix  Printer 5449. OO 

1027  Letter  Ouality 5299.00 

1030  Direct  Connect  Modem . . .  CALL 

1050  Disk  Drive S379.0O 

CX30  Paddle  S12.00 

CX40  Joystick each.. .58. 00 

CX77  Toucti  Tablet  564. oo 

Cxeo  Trek  eaii 548, oo 

CX85  Keypad  $105.00 

488  Communicator  II $229.00 

4O03  Assorted  Education 547.00 

401 1  Star  Raiders 533.00 

4012  Missile  Command 529.00 

401 3  Asteroids 529.00 

5049  VisiCalc 51  59.00 

7097  Logo $79.O0 

7101  Entertainer 569.00 

71  02  Arcade  Ctiamp S75.O0 

B026  Dig  Dug  S33.00 

8030  E.T.  Phone  Home S33.00 

8031  Donkey  Kong S39.0Q 

6033  Robotron S3S.00 

8034  Pole  Position S39.0O 

8036  Al a ri  Writer S79. 00 

8040  Donkey  Kong,  Jr. $39.00 

8043  Ms.  PacMan S39.00 

8044  JousI S39.0O 

DISKETTES 

MAXELl- 

5'/.  "  MD-l 529.0O 

5V-"  MD-2 $39.00 

8"  FD-1  ISS/DDI $39.00 

8"  FD-2  IDS/DD) $49.00 

VERBATIM 

5'/."  SS/DD $26,99 

5V."  DS/DO $38.99 

ELEPHANT 

5V."  SS/SD $1 8.49 

5V."  SS/DD $22.99 

5'/«  "  DS/OD S2B.99 

MEAD 
5V."  Disk  Heed  Cleaner 514.99 

DISK  HOLDERS 

ItHNOVATIVe  CONCEPTB 

Flip-n-FilB  10 $3.99 

Fllp-n-Fiie  50 $1 7.99 

F)tp-n.File|400/800ROM|Hok(8r..$1 7.99 

LJK  ENTERPRISES 

Atan  LeItBf  Pertect-DiskldO/SO| ...  $79.99 
Atari  Letter  Pertect.ROM(40eol)... $79.99 
Atari  Letter  Perfecl'ROM< 80 col).  ..$79, 99 

Atan  Data  Perfect'ROM{80  coll $79.99 

Atari  Spell  Perleci'DISK $59.99 

Alari  Ulility/MsilMerge S21.00 

Apple  Letter  Perfect $99.00 

Apple  Data  Perfect $75.00 

Apple  LJK  Utility $21.00 

Apple  Lowercase  Generator  ...$19.00 


ISOOXL CALL 

1 400XL CALL 


PEFQOMi 


ATSa-SI  ....$369.00 

AT8a-A2 $259.00 

ATBB-S1PD $429,00 

AT88-DDA $119.0O 

RFO  40-S1   $449.00 

RFD40-A1    $269.00 

RFD40-S2  $699.00 

RFD  44-81    $539.00 

RFD  44-52  $869.00 

TEXAS  INSTRUMENTS 

TX99-S1  $279.00 

RAN  A 

1000 $319.00 

TRAK 
AT-D2 $389.00 

MEMORY  BOARDS 

Axlon32K $59.00 

A>lon48K $99.00 

Axlon  128K S299.00 

lnIee32K S59.00 

Intec  48K SB5.00 

Intee  64K 599.00 

Intec  Real  Time  Clock $29.00 

ALIEN  VOICE  BOX 

Atari $119.00 

Apple SI  49.00 

KOALA  PAO 

Ata  ri , 575.00 

Apple SS5.00 

IBM 595.00 

CBM  64 $75.00 

CONTROLLERS  K 

JOYSTICKS 

\wica 

Joystick S2 1 ,99 

3-way  Joystick $22.99 

Famous  Red  Ball $23,99 

Power  Grip  ,,,, 521.99 

BOSS  Joystick  SI  7.99 

ATARI/VIC  Trak  Ball 534.99 

Apple  Trak  Ball $54.99 

Apple  Adapter SI  5.99 

Apple  Analog $37.99 

KHAFT 

Joystick  $41 .99 

Atari  Single  Fire $12.99 

Atari  Switch  Hitler $15.99 

ApplePaddles $34.99 

IBM  Paddles S34.99 

IBM  Joystick $46.99 

AMIQA 

31  00  Single $13.99 

3101  Pair $19.99 

Joyboard $37.99 

TQ 

Alaf i  Trak  Ball $47 .99 

Apple  Joystick  $47.99 

Apple  Trak  Ball $47.99 


800.648.53ff 

(n  NV  cam '0215885654.  Dept    0406 

Order  Status  Number;  588-5654 
P  O.  Box  6689.  Statetine.  NV  89449 


800-258-'!'559 

In  Toronto  call  t4l  6)828  0866    DepI    OHOG 

Order  Status  Number:  828-0B66 

2505  Ounwm  Drive.  Unit  1  B 

Mpssissauga.  Ontario.  Canada  L5L1T1 


800«255'8950 

In  PA  call  (717)327  957S    Depi    O-HJU         r—^ 
Order  SOtui  NyfflbSX:  337-9576  ^MIJ 

Cuslomar  Servtcft  Number:  337-1450     fl^ 
477  £.  Third  St..  WilliBmsport.  PA  1  770:  IM 


CANADIAN  ORDERS:  All  prices  are  subject  to  shipping,  tax  and  currency  fluctuations.  Call  for  exact  pricmg  in  Canada 
INTERNATIONAL  ORDERS:  All  shipments  oulside  the  continental  United  Slates  must  be  pre-paid  by  ceiliried  check  only, 
handling.  EDUCATIONAL  DISCOUNTS;  Addilfonal  discounts  are  available  to  qualilied  Educalional  Inslilutmns, 
APO  &  FPO:  Add  2'^o  (minimum  S5.00)  shipping  and  handling. 


1  S5  OQ|  shipping  and 


1027.00 
ICIJT.OO 

(D)27.M 


Products  are  Noled  \0\ 

flMch'Hcid  4DJ26.95 

Neutral  Zone <DHt..9S 

Broderi»aiid 
Chopiihcr 
SeaFoi 
Scrpcniinc 
Divid't  Miijnighl 
Magic 
CDS 
FriMic  Freddy  (DjJb.lS 

Pegasis  fD]2b,95 

CODJDOdlN-r 

AsScmbJcrM  tPJlb-IO 

Bonus  Pack  lOnDHi.'JO 

CP  M2.3  5yilriii  .  iClft'JgO 
F_js>  Scnpi  iUj4J,00 

tj\s.W*ilt>4  .iD>lb,90 

F.4SS  Spcllti4  .    .{0)lb.<HI 

Eai>Cak(H      (DJ73-7S 

Easy  Lcsion  Ouir  .  ,(D)lb,*JO 
Easy  Finance!  1-5). .  .(DH9J5 
Logt) (0)4*, W 


COMMODORE  Aft?  SOFTWARE 


[Q-Cartridge  or  \T\'CQSseite  Tape 
Payible 


Pel  Emulator 
Intro  t»Baii%  1  .  . .  . 
Screen  tldiior 
Suprr  E»p»!iderVSP 
IhcMatiflBef 
Simons  Ba^ic 
Music  Machine     -  - 

Music  Composer (DHb,**0 

Word  NameMachine,    .[DJlb.% 
Zonek  and  ihf 
Microchips  -  - 
InveTilon  Wgnr 
Pjvn.LIChc.-Ui 


.(D>17,W 

,(C!l<).SO 
.lOlb-W 


(T)Z4fiO 
fD>4.V00 


■  Arc!!.  Payible IDMJOO 

Acct!- Receivable |D>4J-00 

Gen- ledger ,.lDH3.00 

Nc^idaCobol fDiS^.'JS 

MjgicDeit.. ,...(C|74,<*5 

ZofkllJ)  -., |DJ2'>-M) 

Suipejided lD)Z9.5D 

Slitn-rosJ     |D)29.50 

Deadline lD)29.50 

Dragons  Oem ,  ..{<:)lA<th 

SrafHar,ger (OH.-SS 

ContlDRiUl 

Home  AorounlaBt |D)50.75 

Tajt  AdfantagE    . ( D)40.60 

F.C  M (D176.50 

Creulve  Soflwut 

SpitbfcU (C)23.&5 

Pipes (021,65 

Derision 

Maker (Tll0.1S(Djn.5O 

Household 

Finsrce (TIIJ.KHDJI6.S0 

Home  Inventory  4TII0.  I5|D|I 3.50 
LoanAnalv«r       <TllO.  I5|D||3.50 

Miwrvdusi lC!2J-h5 

Asltoblili lOZJ.bJ 

Traihman  (C)2J.bS 

Save  Sew  Vtirk |C123.bS 


C>b*r 
Cvberchcis 

English'Spanish. . 

Preschooler 

Science 

Hislor> '  Gcoutiphy 

Music  Thcot>- 


ID134.95 

.[D)34.9S 
.!DJJ4,9S 
|tHJ4.M 
|IHJ4-*S 
10)31.95 


Mithemiiics {0)34.95 

Trivia  ,. <D>J4.95 

DUH«h 

Moonjhutlle (D.TllO.iO 

PsoVan (O.TlZO.Ju 

Cenciii IDI2T.M 

0'Hile>''iMine  .10)20.30 

DilIaiQueH         .  .(DI27.0C 

Epja 

PilJtop  -(C|Z7.M 

Temple  of  Apjhai    (D|27.M 

Upper  Rcachei 

ofUpshai (D)I3.SS 

CurwofH* {DJ13.55 

Sword  of  fargoil  ,  .  .(DJ2O.30 

3umpman  (DhTj27.0O 

Gateway  10  Apihai    (0)37  00 

Jumpman  Jt iC)I?,(lO 

OilBuroi! (DI27.0O 

LunarOuipoH lDl27,On 

FtaetM 

CloijalRint (OJJ4.9S 

Het  Saftwiit 

Oubliette |D)20.4S 

TheFiaory (DI24.2S 

Milling  Linki |D)20.4S 

T>pe'N  Write (C)20.45 

Pilni  Brush    101700 

HesMonM ...  1OZ7.00 

Turtle Graphsrtll    (O40.«) 

ATUci!  of  ihe 

Mutant  Camels (020,45 

Time  Money  Mgr |D)5I.00 

Omniwriicr .|D)2'I.20 

SynthcioundM  .     .    {0]25.50 

OmniCalc {OjSfl.S.^ 

Muliiplan (Di?9.9& 

Hei  Writer  M (C}3<J.45 


Ghdnjnner 

.  ICI20.25 

Benjt  Sp4M  Rescue  . 

.  .(DlJO.45 

M  Fonh 

(Cm.M 

Turtle  Toylindir. 

.(D,TI23.M 

Chtmeleon 

..IDI17.00 

Ghoit  Mlnar/Spiiei 

Pe.l 

.<D)IT.OO 

HES  Oiint! '84 

,-. (0127.25 

MinncKWi  fit!  Pool 

...ICI20.4S 

CMou 

Chesi  7.0   

...IDM.9S 

Checkers  3  ] 

<DM4.qs 

Oilin 

.      rD)4Q.qS 

How  A1>oiii.,,Chcii 

1 0121.  IS 

Micfo  Prow 

Floyd  of  Ihe 

J»>gle 

.  IDIU.M 

Hellcat  Ace 

.  |D12J.« 

SoloFlighf    

-    iDa6.» 

KitoCommiinder  -  ,- 

.,     1D'26.')5 

SlemooUiw 

Frogger , 

,(D,T123.b5 

Ne.«J.vibrnlief. 

.    .ID120.3O 

San^iny  LlghlfooL 

---(DI2I.S0 

Btcfhold    

.-IDI2I.B0 

lunir  Leeper 

ID)2I,80 

B.C.  Quest  rot  Tires 

.     10)25,50 

Oil's  Well 

.    .10)21,(10 

LcsrfiinKW/tceper  . 

... (0)11.80 

Slnit  Softwu* 

(0)27  00 

Snake  Bvie     

.     (0127,00 

Squish '£m 

.    -(DI2]-iS 

Ftepion            

.-   (Dl2).» 

Blade  of  Blackpoole  . 

ID127.0O 

TypeAniek 

.   IDI27.00 

WivOut    

(D)27.00 

Criiicjl  Mat^ 


iO)  27.00 


ambLoflc 

Flight 

Slmvtalorli  (0^44.95 

Alf  in  the  Color  Ctvej  ,..<CJ27.95 

SiitbleBiini (C)27.95 

iykeBoi  (027  « 

KWwritw lD)23.95 

Face  Maker tO.OBtS 

Htj  Diddle  Diddle  ......  |0|2£}J{) 


Kindercomp  . 
Sroopcr  Troop* 
FraciioR  Fever 
A  mating  Thing 
AlphalSelZoo 
KidionKeyi 
Delia  Drawings 
UpforGtabi   . 
Cosmic  Life.    .    . 


.|C.D)20-JO 

(D)27.0O 

-     I023W 

(D)27  00 

(D)23.65 

.(C.D)23.6S 

.       IC)27,2S 

(C)  27.25 

.fCj2J.hS 


Sioiy  Machine (C)3?,2S 

Triini  .(D)27.95 

Aerobics |DiJO**S 

ScvberABAb 

Songwriter |DlJS.95 

MaMcrType     |Dj35.9S 

Synapae 

Ft- ApcKal/pie  ID. 023.70 

Shamus f0.O23.70 

Blue  Mil....... 40.023. 70 

DimrnsionX (D.Ci2J,70 

SSI 

Combat  leader        (0)29.00 

KniahlioftheDesen.-     (D)29.DO 

Computer  Biieball (0)29.00 

Eagtc* (DJ29.DI0 

Ring  Side  Seit (I>(29  <X) 


Terms  and  Ordering  Information:  To  order  call  I  ■S00-S27-869(i  and  send  certified  checks,  money  orders  or  personal  checks  [aUi}w2week^  to  cieur]  or  use  your 
Visa.  Master  Card  or  American  Expresi.  Inside  Texas  call!  ■Ii00-442'87i7.  lndudeS2for  PA  H  [C.O.D.  orders  add  51.65]  UFS  Blue  Label  54  Canada  S6  call 
for  shipping  charges  on  Hardware.  Other  countries  include  10%  for  P  &  H.  Alt  products  factory  seated  wish  manufacturer  s  warranty.  All  returns  require 
R.A.fi.  Prices  subject  to  change  without  notice.  Order  desk  hours:  Mon-Fri  9-6. Sat  9-1  CST. 


ATARI,  APPLE,  VIC  20,       SOFTWARE  LISTS  AVAILABLE 

For  lurlher  inlormalian  and  inmiires  call  214-TS3-04S5 
FOn  ORDERS  ONLY  CStL  TOLL  FREE 

Outside  Texas  Inside  Texas 

1-800-527-8698  1-80(M42-8717 


SSM^J/L/affCS    P.O.  BOX  2511 
i^/iij-aL^iJ^sa  OiiJJaJ     LONGVIEW,  TX. 
~       —       — n    75606 


Commodore  64 
IS41  Disk  Drive 
1530  Daiasette 
MPS  801  Printer 
1650  Automodem 
1 702  Color  Monitor 

1600  Modem 
64  Prog.  Ref.  Guide 

CAlXFOKCUmiENT 
PRICES 

UMmta 

BASF  5'/." 

SSDD2Pak 5.50 

BASF 

SoftBox(IO)  .  .. 
Jo)'tflcki 
Pointmaster  . . . 
Pointmaster  Pro 
Fire  Control  . . . 
Wfco 

Cotrimatid  Ctrl. . 
Wico*'Boss*"  . , . 
Wico  Red  Ball . , . 
WicoPowerGrip 


23.80 

10.9S 
IS.SS 
.7.85 


i9.50 
13.50 
20. 7S 
20.75 


CanlcD 

Card+G 68.25 

Card    B 37.85 

Cass,  interface  .  .33.25 
5  Slot  Expansion.  60.25 
Numeric  Kc.vpad  30.25 


'S?l'Soala 

ToachTahlel   (D)79,95 

GEMINi  Printers 

O'SULLIVAN 

Furniture 

MAXTRON 

Datasettes 


CALL  FOR 
INFORMATION 


INSTANT  SUCCESS 

WITH  INSTANTTUTOR! 


Learn  how  fo  use  your  own  Personal  \.  ^i^ 
Computer  (PC),  WordStar,  SuperCalc  or  \  *^ 
dBase  11  with  Instant  Tutor!  " 


You  can  leara  faster  and  easier 
than  you  believed  possible — even 
if  you  have  never  used  a  computer 
before,  fnstani Tutor! "  isaquick 
and  easy,  step-by-s(ep  computer 
assisted  learning  package  thai 
contains  a  Reference  Guide  and 
diskette.  The  Easy  Reference 
Guide  shows  you  how  to  turn 
your  computer  on  and  insert  the 
dislielte.  From  lliis  point  on,  you 
begin  to  interact  with  your  PC. 
The  diskette  teaches  you  how  to 
use  the  software  of  your  choice  by 
giving  you  practical  information 
and  real-lire  exercises.  At  any 
time,  you  can  turn  to  the  Easy 
Reference  Guide  for  lesson  re- 
views and  practice  problems. 


Instant  Tutor.'' 
is  your 
Interactive  Trainer. 


InstaniTuior  f "  is  a  trademurk  of  Daia  Pro- 
cessing Educational  Corp.  WordStar  is  a,  rcg- 
(sitned  trademarit  of  MicroPro;  dBase  1 1  of 
Ashlon-Tal'e;SjperCakofSorcim. 
©  1984  Data  Processing  Educational  Corp. 


SATfSFACTfON 
GUAkANTBED! 

Imiant  Tutor! '"  h'i7/  save  you  days  of 
fruslraiion,  irulfcision  and  mistakes. 
If  you  are  not  completely  satisfied, 
return  it  to  us  within  W  days  for  a 
complete  and  courteous  refund.  You 
lake  no  risk. 


Credit  Card  orders  onh  call 

(800)  227-1617  EXT.  US 

In  California  call 

(800)772-3S4S£XT.  J  IS 

Specify  which  course  you  wish  to 
Icom ,  and  type  of  diskette  required . 
$59.95  perCourse  plus  S2. 50 shipping 
and  handling.  Ohio  residents  add  sales 
tax.  Visa,  MasieiCafd,  AmX,  money 
orders  and  personal  checks  accepted , 

Qara  PnocessiriG 
EDUcanoraL  Cofv. 

4588  Kenny  Road,  Depi,  22 
Columbus,  OH  43220 
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ftv 


Your 

G>mputer 


FLIGHT  SIMUIATOR  GAMES 
^    COCKPIT  64 

For  the  Commodore  64 

100%  Machine  Language 

Win(dshield  View 

7  Airports  $30 « 

Runway  64  (Commodore  64)  $25 

Runway  20  (VIC-20  $25 

Sky  Pilot  (ViC-gQ) $18 

ADD  $2"'  FOR  DISK  VERSION 

.1.  .  BAR  GRAPH  64 

.=! i!t=:l  ^'^^  THE  COMMODORE  64 

.:::::::5|E  •  100%  Machine  Language 
iiriiiiiiH:  •  f^^"  ^o'or  Display   ^4%/k 
iiiHrriziii  •  Saves  To  Disk         Y  Jll* 
•  Supports  All  Parallel  Printers' 


COD  ORDER  PHONE 

WE  SHIP  wrmM  w  hours 

(312)394-5165 


SUSIE 
SOFTWARE 


709  Wilshtre  Dr, 
Mt,  Prospect,  IL  60056 


AATARI  ««?»»»**' 

v"  DISK  DRI 


ATARI  isa  Irademark  ol  ATARI  INC 


ATARI  800XL  Call 


AtarMOSO 

Disk  Drive Call 

Atari  1010 

Recorder 77.00 

Atari  1027 

Printer Call 

Atari  850 

Interface Call 


MOSAIC 

64K  Ram/400 149.00 

64K  Ram  "Cable  Kit 

400/800 169,00 

48KRamKit 94.00 

16/32  Expapder  .  .  .  .64.95 

32K  Ram 77.95 

Mosaic  Aaaptor  ....  49.95 


Memory  Expansion  for  Atari  600XL . .  Call 
3RD  Party  Printer  Interfaces 

Interfast  I 139.00 

Apeface  w/cable  included 69.95 

PRINTERS 

Axiom  AT-100  .  .  229.00      Gemini  10X Call 

Axiom  AT-550  .  .  329.00      AlpHacom Call 

Riteman Call      Okidata  92A   Call 

Call  for  assorted  Printer  Packages 


DRIVES 

Percom 

TraK Call 

Concorde For 

Indus  GT Prices 


RS232  Modem 

Adaptor  (Througti 

serial  port)    39.95 


Koala  Touch  Tablet 
Cart  or  Disk  ..  .69.95 


MONITORS 

USI Call 

AMDEK Call 


STIMUTECH  SUBLIMINAL 
SOFTWARE  FOR  ATARI 
AND  CBM  64 

Expando-Viston  Interface 
w/one  Free  Cart ....  99.00 
Weight  Control 
Study  Habits 
Stress  Control 
Drinking  Control 
Smoking  Control 
Career  Success 
Sexual  Confidence 
Addifl   Bom  Carts  S29  95  ea 


A      T 


O      F      T      W      A      R      E 


ATAHI 

Conversational  Lang.  -  T    .  .  44  95 

My  First  Alpfiabet - O 26M 

Touch  Typing  -T T995 

Home  Filing  Mgr  -  O 37  95 

Star  Raiders  -  Cart 32  95 

Assembly  Editor  -  Cart  ...  .  46  95 

Macroassembler  -  D 67  95 

Invitation  to  Program  IT...  1995 

Basketball -Cart 26 95 

Graph-It -T 1595 

Oix  -  Cart 32  95 

DjgDug-Can 32  95 

Atanv^nter  -  Cart    74  95 

Donkey  KOAg  -  Carl    37  95 

Ms  Pac-Man-Can 3995 

Tennis  -  Can 3595 

Eastern  Front  -  Can 32  95 

Donkey  Kong  Jr.  -  Can    ...  3995 

Pengo  -  Can 35  95 

Logo -Can 7995 

Robitron- Can 3595 

Pole  Position  ■  Cart 39  95 

Microsoft  Basic  It  -  C 67  95 

Paint  -  D 3395 

Caverns  of  Mars  -  Cart  ....  32  95 

Joust  -  Cart 39  95 

Visicalc-D 15995 

SIEflRA  ON-LINE 

Homeword  -  D 49  95 

Dark  Crystal-  D 2795 

Frogger  -  D/T 23  95 

Quest  For  Tires  -  D 23  95 

Ultima  I  -D 23  95 

Ultima  II  -D 4194 

wizard/Princess  -  D 2295 

INFOCOM 

Deadline-  D 3495 

Witness  -D 3495 

Zork  I.  11.111  -D     2795 

Slarcross  -  D 27  95 

Planellall  -  D 34  95 

Suspended  -  D  ........  .  34  95 

Encnanter  -D 3495 

Infidel  -  D 34  95 

Sorcerer  -  D 3495 

BRODERBUND 

AE-  D 23  95 

Arcade  Macnine -D    .....  41.95 

Bank  St.  Wnler  -  D 4  9  95 

Lode  Runner  -  D    23  95 

Drol  -  D 23  95 

Spare  Change  -  D 23.95 

Choplirter  -  D 23  95 

PARKER  BROS. 

Astrochase  -  Cart .  34  95 

Frogger  -  Can 34  95 

Q-Be/i  -  Can 34.95 

Popeye-  Cart 34  95 


EPYX 

Gateway  To  Apshai  -  Can 

Pitstop  -  Cart , 

Swat  Rescue  -  Cart 

Silicon  Warrior-  Can  ... 
Fun  With  Music  -Cart   .  .  . 

Jumpman  Jr  -  Cart 

DragonrJders  of  Pern  -  DA 
Temple  of  Apshai  -  n/T  .  . 
HelitlreWarriar-D/T.  .  .  . 
Fun  Wltti  Art  -  Cart 


DATA  SOFT 

Money  Wizard  -  0  . 
teller  iNizard  ■  D  . 
spell  Wizarr]  -  □  .  . 
Genesis  -  D,^  .  .  . 
Healhclilf  -  D/T  .  . 
Pooyan  -  D/T  .  .  . 
ZaKxon  -  D/T  .  .  . 
Micropainler  -  D  .  . 


27.96 
27  95 
27  95 
27  95 
27  95 
27  95 
27,95 
27.95 
20.95 
27.95 


4995 
49  95 
34  95 
20.95 
20.95 
20.95 
2T.95 
2395 


SPINNAKER 

Up  For  Grabs -Can 27  95 

Cosmic  Life  -  Can    23  95 

Facemaker  -  Cart 23  95 

Alphaoet  Zoo  -  Cart 23.95 

Fraction  Fever-  Carl  .....  23.95 

Kids  on  Keys  -  Cart 23.95 

Delta  Drawing -Cart  .....  2795 

Story  Machine  -  dart 27  95 

Rhymes  &  Riddles  -  D  ,  .  .  .  2095 

Amazing  Things  -  D 27  95 

Hey  Diddle  Diddle  -  D  ....  2095 

Snooper  Troops  1  or  2  -  D  .  .  30  95 

Trains  -  D 37  95 

Aerobics  -  D 30  95 


LJK 

Lenef  Perteci  -  D 74  95 

Data  Perteci  -  D 74  95 

Spell  Perteci  -  D 64  95 

MISCELLANEOUS  FOR  ATARI 

Castte-Woltenstein  -  D  .  .  .  .  20  95 

Home  Accountant  -  D   ....  52.95 

Master  Type  -  D,'Cart 27.95 

Spelunker-O 27.95 

Flight  Simulator  II  -  D    ....  37.95 

Zombies  -  D/T 23  95 

Mr,  Robot  -  D 23  95 

River  Raid  -  Can   31  95 

Diskey-  D    34  95 

Chatterbee  -  D 27  95 

Rally  Speedway  -  Caft  ....  34,95 

Ultima  III -D 41.95 

Miner  2049'er  -  Cart    34.95 

Scraper  Caper  -Cart 34.95 

Basic  XL -Can 74  95 

Monkey  Wrench  II  -  Cart    .  .  49.95 

Omnimon B2  95 

Star  Trek  -  Cart 27  95 

Starbowl  Football  ■  D/T   .  .  .  22.95 

Hockey  •  Cart 27  95 

Computer  War -Cart 27.95 

Flip  Flop -O/T 20.95 

Boulder  Dash  -  D/T 20.95 

Carrier  Force  ■  O 41  95 

Combat  Leader  -  D/T   ....  27  95 

Encounter  -D/T 23  95 

Ouaslmoto  -  D/T 23  95 

NYC.  -D/T 23.95 

Compute  Books Cal 

Hundreds  of  items  available  for  the 

Alarl  and"  CBM  64  .  ■ .  please  call. 


COMMODORE  64^ 

CBM  64  Call 

1541  Disk  Drive 249.00 

1525  80  Column  Printer 229.00 

1 530  Datasette 66.00 

1702  Color  Monitor  249.00 

1650  AD/AA  Modem 89.00 

RS  232  Interface 44.00 


COMMODORE  64  SOFTWARE 


Program  Re(.  Guide.  .  .  19.95 

Assembler  -  D 17,95 

Easy  Finance 

I.II.III.IV-D 19.95 

Easy  Calc-0 64.95 

Easy  Mail -O   17.95 

EasyScript-D 39.95 

EasySpell-D 19,95 

Logo-D 39  95 


The  Manager-D. 

. .  97.95 

General  Ledger - 

.  .  37.95 

Accts.  Rec.  -  D  .  . 

..  37.95 

Accts.  Pay.  -  D  .  . 

.  .  37.95 

Code  Writer- D    . 

..   37.95 

Zorkl.llorlllD.. 

..   29.95 

Suspended -D  . . 

..   29,95 

Starcross-D 

..  29.95 

Deadline- D 

..  29,95 

COMMODORE    64    SOFTWARE 


Co/n/}£z  t^bUitu 


ATARISOFT 

Pac-Mac    34.95 

Centipede 34.95 

defender 34.95 

□ig  Dug 34  95 

Donkey  Kong    34.95 

Stargate 34.95 

Rotiotron 34.95 

ACCESS 

Neutral  Zone  -  D/T   ......   26.95 

Spritemaster  -  D/T 27.95 

Beachbead  -  D/T 26.95 

BLUE  SKY 

Calc  Result^Easy  -  Cart  ....  Call 
Calc  Result/ Advanced  -  0  .  .  .  Call 
Script  64-0 Call 

BATTERIES  INCLUDED 

Paper  Clip 9995 

Delphi  Oracle 114  95 


Video  Pak  80 139.95 

ZaO  Video  Pack 229.95 

HES 

Multiplan-D 74.95 

64  Forth  -  Cart 41.95 

HES  Writer  -  Cart 32.95 

HES  Mon  -  Cart 27  95 

Turtle  Graphics  -  Cart    ....  41,95 

Mutant  Camels    20.95 

HE^Modem 59  95 


Instaspeed  -  D/T    74  95 

Instawnter  -  Cart    55  95 

tnslamait  -  D/T 29  9S 

SIRIUS 

aiackpoole  -  D 27  95 

Repton  -  D 27  95 

Type  Attack  -  D 27  95 


Wayout  -  D  , 
Critical  Mass  -  D . 


27,95 
2?.95 


For  Technii:al  Into,  Order 
Inquiries,  or  for  Wise.  Orders  • 


To  Order  Call  Toll  Free 

800-558-0003     41 4-351  -2007 


NO  SURCHARGE  FOR  MASTERCARD  OR  VISA 


COMPUTABILITY 

P.O.  Box  17882 

Milwaukee.  Wl   53217 


^ 


ORDER  LINES  IDPEN 
Mon-Fri        1 1  AM  -  7  PM  GST 
Sat  12PM-6PMCST 


ORDERING  INFORMATION  For  fast  delivery  send  cashier's  check,  money  order  or  direct  bank  transfers 
Personal  and  company  checks  allow  2  weeks  to  clear.  Charges  for  COD  are  S300.  School  Purchase 
OrderswEicome.  In  CONTINENTAL  USA.  include  $3  00  shipping  per  sottwareorder  Include 3%  Shipping 
on  all  Hardware  orders,  minimum  $3  00  Mastercard  &  visa  please  include  card  #and  expiration  date  Wl 
residents  please  add  5%  sales  tan  HI .  AK.  FPO ,  APO,  Canadian  orders  -  add  5%  shipping,  minimum  S5  OO 
All  other  foreign  orders,  please  add  1 5%  Shi pping.  minimum  S  10.00.  All  goods  are  new  and  include  (aciory 
warranty.  Due  to  our  low  prices,  all  sales  are  final.  All  defective  returns  must  have  a  return  authorization 
number.  Please  call  414-351-2007  to  obtain  an  RAH  or  your  return  will  NOT  be  accepted  tor  replacement 
or  repair.  Prices  and  availability  aresubjeci  to  change  without  notice 


SYNAPSE 

Blue  Max  -  O/T 23  95 

Zaxxon  -  D/T 23  95 

Morgul  -  D/T 23.95 

Shamusll-D/T 2395 

Seminal  -  D/T 23.95 

Pharoah's  Curse  -  D.T  ....  2395 

Slamball  -  D/T 23  95 

IMISCELLANEOUS  FOR 
CBM  64 

Flight  Simulator  II  -  0    ....  37  95 

Night  Mission/Pmball  -  D   .  .  20.95 

Pralicalc  PS  -  D 59.95 

M-File-D 84  95 

Word  Pro3'/Spell  D 74  95 

Home  Accountant  -  D    ....  52  95 

Stop  by  Step  -  D/T 44  95 

Barron's  Sal  -  D 5995 

Money  Manager  -  D/T   .  ,  ,  ,  19  95 

Bristles  -  D/r 20  95 

Telestar  64  -  Cart 37  95 

Star  League 

Baseball  -  D/T 22  95 

Zombies  -  D/T 23  95 

Castle  Wolfenstein  -  D  .  .  .  .  20  95 

SwashUucklef  -  D 23  95 

Sorcerer  -  D 34  95 

Computer  Baseball  -  D  .  .  .  .  27  95 

Ringside  Seat  -  D 27  96 

Professional  Golf  -  D 27  95 

Congo  Bongo  -  Cart 27  95 

Mastertype  -  Cart .  27  95 

Solo  Flight  -  D 23  95 

Vic  Switch    124.95 

CardCD  'G 6495 

ACCESSORIES 

WICO  Joystick Call 

Fhp'n'  File  Trunks .  20.95 

Flip  n  File  Cart 20.95 

Joysensor 24.95 

Elephant  Disks 

IBoiollO) 20.95 

WlCOTrakball 37  95 

KRAFT  Joystick 15.95 

D  -  Disk 

T  -  Cassette 

Cart  -  Cartridge 


HAPPY  WINS  THE  RACE  WITH  WARP  DRIVE  SPEED! 


^■. 


HAPPY  81 0  ENHANCEMENT 

•  The  only  change  needed  1o  run  all  WARP  DRIVE  software 
Plug  in  PC.  board  requires  no  permanent  modifications 

•  Proven  reliabfe  in  thousands  of  installations,  reduces  disk  drive  wear  i 

•  Comes  completely  assembled  and  tested,  just  plug  in  and  use 

•  Full  one  year  parts  and  labor  guarantee,  compatible  with  existing  software 

•  High  quality  printed  circuit  board  with  gold  connectors 
NO  ONE  ELSE  HAS  THIS  PERFORMANCE 

Unenhanced  whole  disk  (ATARI  rev  B  format)  read  time:  1 12  seconds 
Unenhanced  whole  disk  (ATARI  rev  C  fast  format)  read  time:  89  seconds 

ENHANCED  810  whole  disk  (any  format)  read  time  with  standard  software:  68  seconds  » 

ENHANCED  610  whole  disk  (any  format)  read  time  with  WARP  DRIVE  software:  43  seconds 
Standard  software  whole  disk  write  and  verify  time:  238  seconds 
WARP  DRIVE  software  whole  disk  write  and  verify  time:  62  seconds  j 

NEW  HAPPY  WARP  DRIVE  SOFTWARE 

WARP  SPEED  HAPPY  BACKUP  PROGRAM 

•  Completely  automatic:  nothing  to  figure  out.  insert  disks  and  press  return 

•  Only  program  on  the  market  guaranteed  to  backup  any  disk 

•  Can  write  to  a  blank  disk:  format  write  and  verify  in  one  operation 

•  Automatic  program  tracing:  copies  only  the  tracks  that  are  used 

•  Efficient  memory  utilization:  reduces  the  number  of  disk  insertions 

•  Requires  only  one  ENHANCED  disk  drive,  backups  will  work  on  a  standard  drive 
WARP  SPEED  MULTI  DRIVE  HAPPY  BACKUP  PROGRAM 

•  Same  features  as  above  plus  support  of  multiple  ENHANCED  drives 

•  Can  be  used  with  up  to  4  ENHANCED  drives 

•  Source  and  all  destination  drives  read  and  write  In  parallel 

•  Format  write  and  verify  3  complete  disks  in  less  than  3  minutes 
WARP  SPEED  HAPPY  COMPACTOR  PROGRAM 

•  Reduces  the  number  of  disks  required  to  backup  your  library 

•  Combines  up  to  8  self  booting  disks  into  1  disk  with  a  menu 

•  Compacted  disks  run  only  on  an  ENHANCED  drive 

•  Pays  for  itself  by  saving  on  disks 

•  Single  or  dual  ENHANCED  drive  operation 
HAPPY  WARP  DRIVE  DOS 

•  Improves  ATARI  DOS  2.0S  to  use  warp  speed  reading  and  write  wilh  verify 

•  Use  all  features  of  BASIC,  PILOT,  FMS,  and  DUP  at  top  warp  speed 

•  Warp  speed  I/O  software  module  available  separate  from  DOS 
HAPPY  WARP  DRIVE  SECTOR  COPY  PROGRAM 

•  Standard  format  whole  disk  read,  write  and  verify  in  105  seconds 

•  Use  with  sngfe  or  dual  drives,  mix  ENHANCED  and  NON-ENHANCED  drives 
HAPPY  CUSTOMIZER  PROGRAM  (sold  separately  S99.95) 

•  Creates  custom  format  disks  of  any  specification 

•  Any  type  bad  sector,  duplicate  sector  numbers,  or  interleave 

•  Easy  to  use  but  requires  an  advanced  level  user  to  interpret  the  results 

REVIEWED  IN  POPULAR  MAGAZINES 

ANALO.G.  COMPUTING— July/ August  1 983    "...The  installation  instructions  lor  the  Happy  810  Enhancement  are  among  the  best  I  have  ever  seen.  ..The  Happy 

8  to  Enhancement  is  one  ol  the  most  powerful  hardware  modifications  available  to  ATARI  computer  owners." 

ANTIC— July  1 983    "The  ditlerence  between  a  normal  ATARI  8 10  disk  drive  and  one  equipped  wilh  Happy  is  tike  the  contrast  between  mass  transit  and  the 

automobile.  A  car  costs  you  more  initially,  but  improves  the  quality  ol  your  lite.  Similarly,  it  you  use  your  disk  drive  a  lot,  inslatling  Happy  will  marl<edly  enhance  your 

programming  lite." 

SPECIAL  SUGGESTED  RETAIL  PRICE  BEFORE  FEBRUARY  28,  1984:  Ge(  Ihe  HAPPY  810  ENHAI^CEMENT  with  the  single  and  multi  drive  HAPPY  BACKUP 

PROGRAM,  plus  the  HAPPY  COMPACTOR  PROGRAM,  plus  the  HAPPY  DRIVE  DOS.  plus  the  HAPPY  SECTOR  COPY,  alt  with  WARP  DRIVE  speed,  Including  our 

diagnostic  for  $249.95.  Existing  registered  ENHANCEMENT  owners  may  upgrade  to  WARP  DRIVE  speed  for  $15.00  with  no  hardware  changes! 

Price  includes  shipping  by  air  mail  to  U.SA  and  Canada.  Foreign  orders  add  $10.00  and  send  an  international  moneyorder  payable  through  a  U.S.A  bank  California 
orders  add  S 1 6,25  state  sales  tax.  Cashiers  check  or  money  order  for  immediate  stiipment  from  stock.  Personal  checks  require  2-3  weeks  to  clear  Cash  COD 
available  by  phone  order  and  charges  will  be  added.  No  credit  card  orders  accepted,  ENHANCEMENTS  (or  other  ATARI  compatible  drives  coming  soon,  call  for 
information-  Please  specify -H  modeHoralldrivespurchasednewafterFebruary  1982,  call  for  help  in  ENHAfvlCEMENT  model  selection.  Dealers  now  throughout 
(he  world,  call  for  the  number  of  the  dealer  closes!  to  you.  atari  eio  is  a  registered  traderaartioiAtar.,int 

HAPPY  COMPUTERS,  INC.  •  P.O.  Box  1268  •  r\/lorgan  Hill,  California  95037  •  (408)773-3830 


BREAK-THRU 


ONLY 

»349s 

A  compact  and  inexpensive  Eprom  eraser  lor  (he 
hacker.  It  erases  two  chips  per  exposure,  so  it  you 
are  one  of  those  smart  people  who  only  makes  little 
mistakes  and  only  needs  to  erase  two  Eproms  at 
a  time,  this  eraser  is  tor  you. 

niLinc  CO. 


7755 E,  Evans 
(6021  998-7550 


■     ScQnsdale,AZ  65260 

Aiizom  rasidents  add  B%  tax 


Catalog  ot  Computers  and  Supplies 

Our  prices  are  WHOLESALE  +  10% 

Samples!!! 
ATARI  eSO  INTERFACE  —  S220 

Compucat  —  $163 

ATARI  1027  PRINTER  -  $350 

Compuca!  —  $265 

We  support  Itie  complete  ATARI  and 

COMMODORE  product  lines. 

Ask  for  our  tree  pnce  list. 

Vou  may  order  in  the  regular  manner  or 

download  our  TeteCatatog  and  order 

from  your  computer  or  terminal. 

(408)  353-1836 

fnstant  st7ipping  (or  as  fast  as  we  can).  MastBfcani  & 
Visa  Accepted  (no  extra  ch&rge).  Shipping  &  handling 
add  5%.  California  customers  add  6,5%  sates  tax.  Order 
by  phone  |Mon.  -  Fri  tO  am  -  5  pm  PST),  Order  by 
modem  (daily  e  pm  -  9  am)  from  our  onjine  TeleCatalog. 

COMPUCAT 

24500  Glenwood  Hwy..  Los  Gatos.  CA  95030 


DUST 
COVERS 

For  Personal  Computers,  Peripherals, 
Game  Units-Protective,  Long-Lasting 
Vinyl  Resists  Both  Dust  and  Liquids. 

—  CHOICE  OF  COLORS  — 


Amdek 

IBM  PC 

Apple 

Mattel 

Atari 

Rana  Systems 

BMC 

Sanyo 

Commodore 

Star  Micronics 

Coleco 

Tl  99/4 

Epson 

TRS80 

Franklin  Ace 

PLUS  OTHERS 

GROUP/VOLUME  DISCOUNTS  AVAILABLE 

FOR  FREE  BROCHURE  WRITE; 

ENCHANTED  FOREST 

P.O.  Box  5261 ,  Newport  Beach,  CA  92662 

(1 129  W.  aalboa  Blvd.) 

Dealer  Inquiries  Invited 


^-^ 


'V. 


^^  SHADY    COVE  % 


Commodore    64 


16k   VIC   EO 

Hunt    the 
GREAT 
WHITE 

SHARK 


TT*  111 

TERIN    Software 

P.O.    BOX     7595 

Mission     Hills,    CA  91346 


'PUBLIC  DOMAiar™ 
—   SOFTWARE  ~ 

Supporting  all  COMMODORE  computan 

Wrineo  by  usen.  for  uisri 

it  GAMES  *  UTILITIES  *  EDUCATIONAL  * 

\nczo~ 

collection  *l  -  coHeciion  #2  -  collection  #3 

collection  -#4  -  collection  #5  -  collaction  #6 

70+  programE  per  colleciion  -  Tape/Disk  -  SI  0.00 

COMMODORE  O^"* 

64  collection  #1-64  collection  *2  -64  collection  #3 

64  coliecT'on  #d  -  54  colleciion  #5 

25+ programs  per  collection  —  Tape/Disk  —  St 0.00 

PET^  /  CBM® 

5  Utiliiy  -  Tapes/Disks  -  S10.00  each 

1 1   Game  -  Tapes/Disks  -  Si  0.00  etzh 

6  Educational  -  Tapes/Oisks  -  $10.00  each 

DIXSET";  Reset  Switch 

Works  on  Vic  20  or  Commodore  64  -  $6.00 

All  priCQV  include  shipping  and  handling. 

CHECK.  MONEV  ORDERS, 
VISA  nnd  MASTERCARD  accaptad. 

For  A  Free  Catalog  Write: 

Public  Domain,  Inc. 

5025  S.  Ranaeline  Rd-.  W-  Millon.  OH  45383 

10:00  a.m.  -  5:00  p.m.  EST  -  Man,  thru  Ffi. 

(5131  698-5633  or(513|  339-1725 


FREE  CATALOG! 

Features  Precision  Toois  and 
Equipment  for  Computers 


Jensen's  new  catalog  features  hard-to- 
find  precision  tools,  tool  kits,  tool  cases, 
test  equipment  and  computer  acces- 
sories used  by  sophisticated  hobbyists, 
scientists,  engineers,  laboratories  and 
government  agencies.  Call  or  write  for 
your  free  copy  today. 

781 5  S.  46th  Street 
Phoenix,  AZ  85040 
(602)  968-6231 


jeNSGN 

TOOLS  INC. 


COnnODORE    64 


•500   EXPLSSES/FILE 
•MO?:niLY    A.ND 

QUARTERLY   REPOPtTS 
•AJ^U-TtSE    BY    PROPERTY 
*A?."ALYSE    BY    CATEGORY 
■SL-fiMAKtES 
•DEPOSITS 
*BAIA.SCE   ACCOIWT 


*]00    Tt-NANTi/ULl 
•HEKT   I,    OTHKR    PHT 

*tb;ant  aEpoHTS 

*DATA    BACKLTS 
•FULL   PRUITlNC 
*y.iyv    DRIVEN 
*PRQFIT/LOSS 
*TAK    RECORDS 


Si9.55  i   S3. 00   (posiapp  and   hand]if>iR) 
Ser.dl   check  ot  M-O.-CsM    VISA,    H,C,   or  CM' 


DATA    BItTE 
740  WGODLAKD 
EPRIKCFlELD,    IL. 
62704 

{217)789-6363 


mm 

[EQDi 


SOFTUARC 

Co^KiSort  6&  li   «  ng.    T>H>  of  Cif. 


y7QiLaA£.£ziA6L^ 


TAX  HELPER " 

Commodore  64 " 

Tax  HELPER  1.83  performs  all 
arithmetic  for  Form  1040  and 
Schedules  A,  B,  and  G.  Does  not 
calculate  tax.  Saves  results  to  diskette. 
Diskette:  SI  7.00  plus  $1 .25  shipping. 
Tax  HELPER  2.83  also  does  Schedules 
C,  D,  E.  F,  G.  SE,  and  W  and  Form  4562. 
Calculates  tax,  prints  reports,  and  more. 
Diskette:  S30.00  plusSl.25  shipping. 

(IVI)agreeable  software,  inc. 

5925  Magnolia  Lane  •  Plymouth.  MN  55442 

(612)559-1108 

HELPER  IS  a  trademark  ol  iMlagreeatile  Sottware.  Inc 
Ccmmodofe  is  a  irademark  ot  Commodore  EleClronics  Lid 


Advertisers  Index 


Reoder  Service  Number/  Advertiser      Page 

102  Aardvark  Action  Software  89 

Abacus  Software  101 

Abati  LQ-20  Printer  21 

103  AB  Computers 91 

104  Accelerated  Software  In  c 31 

American  Educational  Computer  ....  79 

105  Apropos  Tectinology 166 

Artworx 67 

Batteries  Included    11 

Batteries  Included   23 

106  Cardco,  Inc IBC 

Coss-A-Tapes   107 

Commodore  Computers  BC 

107  Comm  64  Training  Tope  133 

108  Compucat  191 

109  CompuServe  69 

ComputAbility 1B9 

110  Computer  Cose  Company  ...185 

111  Computer  Center  Stores  171 

112  Computer  rvloil  Order 186,187 

113  ComputerMot  169 

114  Computer  Outlet  117 

Computer  Warehouse   146 

Cosmic  Computers  Unlimited  121 

Creative  Software 41 

115  CTRL  Health!  Software  100 

116  Data  Byte 191 

117  Datamost,  Inc 81 

118  Data  Processing  Educational  Corp. 
188 

119  Dymarc  Industries,  Inc 43 

120  Eastern  House  98 

Elcomp  Publistiing,  Inc .,  61 

Electronic  Arts  50,61 

121  Elek-Telc  Inc 123 
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Epyx   27 

Epyx   29 
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123  First  Star  Software  Inc 83 

Frontfunner  Computer  Industries 164 

124  The  Furniture  Byte   123 

125  Futurehouse  39 

Gardner  Computing  Company   142 

126  Handic  Software,  Inc 53 

Happy  Computers,  Inc 190 

127  Harmony  Video  And  Electronics   133 

Hoyt  Corporation   66 
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Hytec  Systems  19 

IBM 12,-13 

IBtvl 36,37 

Indus  Systems   103 

Janson-Rantieim  160 
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Krell  Software  Corp 85 

K-2  Electronics  Design  Corporation 

156 

Leading  Edge  Products,  Inc IFC 

130  Lyco  Computer  t\/larketing  &  Consultants 
114.115 

131  (M)agreeable  Software,  Inc 191 

132  MECA  15 

133  Microlab.lnc 65 

Micro-Sys  Distributors  119 

134  Micro  Ware  30 

135  Micro  Ware  42 

Micro  World  Electfonix.  Inc 123 

136  Micro  Worx  149 

137  Midwest  Micro  Inc 156 

138  Moribus  Soflv/are  Co,  Inc 93 

Mosaic  Electronics,  Inc 4 

139  r^Jibble  Notch  98 

140  OSS  42 

141  pace!  Micro  Software  Centers 72 

Pacific  Exchanges  72 

Pacific  Exchanges  133 

Pacific  Exchanges  169 

Pacific  Exchanges  178 

142  Precisian  Software,  Inc 87 

143  Professional  Software  Inc 1 

144  Professional  Software  Inc 9 

145  Protecto  Enterprizes 104,105 

146  Public  Domain.  Inc 191 

147  Rana  Systems  2,3 

Reston  Software 45 

148  Richvole  Telecommunications  73 

Scholastic  Wizwore  70,71 

149  Screenplay  77 

Sierro  On-Line,  Inc 35 

Small  Computer  Book  Club  113 

SM  Software  Inc 130 

SM  Software  Inc 130 

SMSoftworelnc 131 

SMSoftwareInc 131 

150  SoftPeople  Inc 57 

151  SoftPeople  Inc 59 


Reader  Service  Number/  Advertiser      Page 

Software  Unlimited 166 

152  Software  Warehouse  OuHet  188 

Spinnaker  7 

Strategic  Simulations  Inc 75 

153  subLOGIC  Corporotion  55 

154  Such  A  Deal    125 

155  Susie  Software   188 

156  Systems  Management  Associates  ....111 

TERINSoftwore 191 

Used  Video  Tapes,  Inc 169 

Video  Home  Library  164 

157WallingCo 191 

YorklO    166 
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You  asked  for  it . . . 
CARDCO  has  it! 


The  LQ/1  (Letter  Qualify)  PRINTER 

In  response  to  your  demand  and  need, 
CARDCO  now  has  available  for  the  first  time . . . 
o  "Commodore-ready  "LETTER  QUALITY 
PRINTER".  Just  plug  it  in  and  print. 

Offering  standard  friction-feed  and  optional 
tractor-feed,  the  CARCXX)  LQ/1  PRINTER  comes 
complete  with  built-in  interfacing  for  all 
Commodore  Personal  Computers,  as  well  as 
compatible  input  for  PC,  PC  jr..  TRS-80  and 
other  personal  computers. 

"CARDPRINT'  C/?+G  PRINHR  INTERFACE 
with  Graphics 

For  printers  Itiat  are  not  Commodore-ready,  Cardoo 
offers  the  C/?+G  PRINTER  INTERFACE  including  all 
cables  and  connectors  for  the  following  printers:  all 
new  Epson  MX,  RX  and  FX  series,  Star  Gemini  1 0X  and 
Delta  10,  Prowriter,  C.-ltoh  851 0.  NEC  8023.  Okidata 
82, 83, 84, 92, 93  and  94,  Mannesman  Tally  Spirit  and 
MT-1 60,  Seikosha  GX-1 00,  BMC  BX-80  and  the  Gorilla 
Banana.  Prints  the  full  Commodore  character  set; 
graphics,  characters,  reversed  characters  and 
reversed  graphics  characters. 


**WRITE  NOW" 

WORD  PROCESSOR  SOFIWARE 

An  excellent  time  saver,  CARDCO  OFFERS  THE  Cp2 
"Write  NoW  program  with  built-in  80  column  display. 
You  see  exactly  what  will  print.  All  sfjecial  codes  can 
be  transmitted  to  printers  maintaining  justification. 
Easy  full-screen  editing;  works  with  any  printer. 

"iMAIL  NOW"  iVIAiUNG  UST  SOFTWARE 

CARDCO  D/01  quickly  (in  memory)  sorts  by  zip, 
category,  name  and  state;  fully  compatible  with 
"WRITE  NOW".  Other  fine  features  include:  User- 
oriented;  menu-driven  operation;  each  disk  supports 
600  entries.  Format  can  print  single,  double  or  triple 
labels  across. 

All  Cardco  Products  are  available  of  your  local  dealers. 
Write  for  illustrated  literature. 


cardco,  in 


313Mcitheson    Wichita,  Kansas  67214    (316)26 
^The  wotkfs  hirgest  manufacturer  of  Commodore  ae 

-i 

ommodore'*  h  a  registered  hadenrartc  ot  Commodoro  Builness  Systems.  tr>c.         ' 
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C3FTVUCVRE 

For Vbur  Most;  important;  Computing  Needs 


:  comniodot'e 


EasyScript:  64 

Djsplays7541ir.es  x  240 
Characters  Prints  to  t30 
Goiumns.  Works  w(!h 
EasySpell64. 


'4  V 

^t  commodare 


EasySpell64 

20,000  word  Master 
Dictionary  and  automatic 
spelling  checker,  Vforks 
with  EasyScrlptM. 


EasyCalc  64 

Wulliple  electronic  spread- 
sheet with  color  bar  graph 
lealure.  63  colurans  x 
254  rows. 


The  Manager  SuperExpander64 

Sophisticated  database  21  special  commands, 

system  with  4  built-in  appli-  Combine  text  with  high 

cations,  or  design  your  own.  resolution  graphics.  Music 

Text,  formulas,  graphics.  and  game  sounds 


^r  commcackjre 


Easy  Finance  I — 
Loan  Analysis 

12  loan  functions.  Bar 
graph  forecasting  as  well 
as  calculation. 


Easy  Finance  II — 
Basic  Investment 
Analysis 

16  stock  investment 
functions.  Investment 
bar  graph. 


Easy  Finance  Ill- 
Advanced 
Investment 
Analysis 

16  capital  investinent 
functions.  Bar  graphs. 


Easy  Finance  iV — 

Business 

Management 

21  business  management 
features.  Bar  graphs. 


Easy  Finance  V — 
Statistics  and 
Forecasting 

Assess  present/future 
sales  trends  with  9 
statistics  and  (orecasling 
functions. 


:  corrmodore  ft  commodore  ft  commodore 


Accounts  Payable/ 
Checkwriting 

1 1  functions.  Automatic 
billing.  50  vendors/disk. 


Accounts 
Receivable/ Billing 

1 1  billing  functions.  Pfinied 
statements. 


General  Ledger 

8  general  ledger  options. 
Custom  income  statement, 
trial  balances,  reports- 


ftcc^nmodore 
Inventory 
Management 

1000  inventory  items. 
Full  reports. 


ft  commodore 

Payroll 

24  different  payroll 
functions.  Integrated  with 
G/L  system. 


rz.  connrnoclope 

^  COMPUTERS 

First  In  Quality  Software 


